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STUDENT INTERACTIONS WITH COMPLEX PROGRAMS 

ABSinACT 

The individualization in classroom work made possible by 
student use of high level programming languages creates new 
educational and technological challenges. Unless severe time or 
usage constraints are imposed on their mode of work, the quantity 
of information generated by the students is much too large for 
either a teacher or researcher to handle effectively. The 
computer itself, however, can be used to great advantage for 
those forms of analysis of student programming work which do not 
totally depend on problem content, "Dribble files" can be 
generated containing all the student-computer interaction, and a 
computer system developed to help teachers or researchers monitor 
and analyze these dribble files, 

A facility of this kind has been developed. It provides 
suitable primitives and pro cedure-wri ting capabilities to enable 
the user to design the exa^;t form of analysis he desires. During 
the analysis the user can scan forms derived from the dribble 
files dynamically, choosing the data of interest, form of 
presentation, and level of interpretation, and moving across 
these freely in time. 

The design and implementation of this analysis system are 
described. Its standard mode of use is illustrated and special 
analysis packages are developed. General facilities that permit 
users to develop their own analysis procedures are described. 
Exatpples are given to illustrate application of these various 
capabilities. 
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INTRODUCTION 

Programming languages provide contexts within which a great 
variety of formal processes can be concretely represented and 
performed. They permit a great scope for individuality of 
student work both in the number of things students can do, as 
well as the number of different ways they can do them. Thus, at 
least in principle, it is reasonable to expect such languages to 
play an increasingly important role in teaching. This same 
variety and individuality, however, gives rise to practical 
problems. Although less direct supervision by the instructor is 
required when students use a programming language, the amount of 
student-generated material he must deal with is very much greater. 
And the occasional help with ''debugging" and extending programs 
that the instructor must provide requires that he easily and 
efficiently follow each student^s current work. 

In practice the instructor's involvement must be substan- 
tially reduced there are typically far too many students for 
an instructor and lab assistants to handle in this way. This 
situation can, we believe, be substantially improved. Our con- 
tention is that the great manipulative power the computer provides 
the students can also be made accessible to the instructor for 
more efficiently monitoring and analyv:ing the students' work. 
This report describes the design and development of a system 
directed to this end. 

Part 1 of the report is a user's guide and overview of the 
system. Part 2 is a detailed description of the system including 
full program documentation; Part S contains standard analysis 
packages developed to facilitate applications; Part 4 contains 
examples of system use. A technical description of the LOGO 
language is appended. 
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Part 1. 
User's Guide 
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1 . Programming Languages in Teaching 

Programming languages are coming into extensive use in under 
graduate instruction. In addition to languages such as FORTRAN, 
JOSS, and APL, originally designed for scientific applications, 
some, like BASIC and LOGO, were expressly designed for student 
use* These languages can be employed in a number of different 
ways, encompassing a great variety of teaching modes as well as 
student uses. In some situations the computer is used primarily 
for evaluating complex expressions; sometimes it is used for 
parametric study of previous ly--defined models; sometimes for 
exploring complex data structures; sometimes the student develops 
his own programs in connection with specific course projects; 
and sometiiaes the progrrxmming language is used as the conceptual 
framework for developing some of the main ideas in the subject 
taught. These forms serve to illustrate the diversity of 
approach possible. A balanced design will combine several of 
them in a single course or even in the study of a single topic* 

Utilization of a computer and a programming language does 
not, in itself, impose the need for new teaching strategies. 
Practical problems develop only in those cases where students are 
expected to carry out their own programming projects, whether or 
not there is extensive guidance. Experience shows that, here, 
great diversity and individuality in work arises and there is 
considerable divergence among students even when they are 
nominally working on the same problem. One consequence is that 
student errors can lie much deeper and be correspondingly more 
difficult to diagnose. Further, the teacher must understand the 
implications of a large number of alternative approaches to the 
solution of a given problem. 
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A good teacher always faces these difficulties. But in the 
teaching situations that develop from this way of using program- 
ming languages, his difficulties are made particularly critical 
by the amount of individual monitoring required. To examine 
this problem more concrete 1 y, i t is useful to s^e the character- 
istics of actual student programming work in som'^detail; we will 
therefore study student work iii part of a programiUng-oriented 
sequence used in undergraduate instruction (at th^* University of 
Massachusetts in 1971). To provide a context, we first outline 
the central ideas developed in the teaching guide associated 
with this undergraduate sequence. 

2 . An Example of Use of the LOGO Language 

A programming language has a central use in the teaching 
discussed here. We illustrate this rol6 next with a specific 
example. We designed the following sequence, and others like it, 
as models for guiding teachers. This particular sequence served 
that role in an introductory course in undergraduate mathematics 
given at the University of Massachusetts, Boston, in the spring 
1971 term. The course was open only to students of low mathe- 
matical ability. Thus, we chose mathematical material which, 
at least on the surface, appeared nonma thematical . 

In this sequence we trace the development of some programs 
for making pictures, specifically geometric figures, on a tele- 
typewriter. We use the LOGO programming language* for this 
because we feel that crucial formal and heuristic issues are more 
clearly exposed with LOGO than with other programming languages. 
We begin by writing straightforward procedures for drawing 
figures of fixed shape and size. The first such procedures are 



A description of the LOGO language is given in Appendix A, 
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pointil listic, each command typing out a single point of the 
figure. This is a tedious and mathematically uninteresting 
approach, A considerable improvement comes about from noting 
that we can write a procedure for typing out the figure a whole 
line at a time. This procedure is called MARK :N: :X: and is 
written entirely in terms of LOGO primitives. Here is its 
definition. 



TO MARK :N: :X: 

1 TEST IS :N: 0 

2 IFTRUE STOP 

3 TYPE :X: 

4 MARK (:N:-1) 
END 



(When there are no more :X:'s to 
type, stop . ) 

(Otherwise, type out an :X: ) 
(And repeat the procedure :N:-1 
more times • ) 



For example: 

MARK 1^ ""t^" (We underline the student's typing) 

++++++++++++++++++ 

We can write procedures using MARK to draw geometric figures 
of many different kinds. We can easily generate figures with 
vertical symmetry about some fixed line, by extending MARK to 
handle the details of formatting. The procedure MIDDLE :N: :X: 
neatly centers the row of :N: :X:*s in the middle of the line. 



TO MIDDLE :N: : X: 

1 MARK (QUOTIENT OF (60-:N:} (Indent the appropriate number 

AND 2) : BLANK: of spaces; 

2 MARK :N: :X: (and then'type out :N: :X:»s) 
END 



Thus: 

MIDDLE 18 'U" 

+ + + + 4 + + + + + + + + + + + + 



ERLC 



Report No. 2625 



Bolt BeraneK and Newman Inc. 



MIDDLE has direct and straightforward application for 
writing procedures for drawing general classes of simple symmetric 
figures triangles, rectangles, and trapezoids of varied sizes 
and shapes. For example, we write a procedure TRAPEZOID and use 
it to make drawings such as the following. 



TRAPEZOID 3 11 2 



+ + > 
+ + + + + 
+ + + + + + + 
+++++++++ 
+++++++++++ 



TRAPEZOID 13 5 



+++++++++++++ 
++f++++++++ 
+++++++++ 
♦++++++ 
+ + + + + 



We can use such procedures as the basis for further drawing 
procedures. Here, for example, is a procedure for drawing 
octagons, where ;A: is the top base, :B: is the middle diameter, 
and :STEP: is the step size. 



TO OCTAGON :A: :B: :STEP: 

1 TRAPEZOID :A: :B: :STEP: 

2 RECTANGLE ;B: (QUOTIENT OF (:B:-:A:) 

AND :STEP:) 

3 TRAPEZOID :B: :A: (-rSTEP:) 
END 



A next level of procedures generates sequences of figures 
hexagons of increasing size, oscillating diamond patterns, and 
the like. For example, we write a procedure PATTERN which uses 
a random process to create a procedure for drawing patterns that 
are symmetric about a horizontal line as well as a vertical one. 
The following drawings were made by procedures generated by 
PATTERN. 
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Using the procedures written 


thus far, the student could 



generate a large number of different geometric shapes, and the 
writing of such a sequence of procedures represents a considerable 
achievement on his part* The foundations of geometry, however, 
lie in the transformation of geometric objects, not merely in 
their portrayal • Our next goal, then, is to write procedures for 
performing standard transformations of geometric figures, Such 
transformations include translation, rotation, and reflection, 
both with respect to a given point and with respect to a given 
line. Procedures to generate the union and intersection of the 
sets of points defining two geometric objects are also useful. 
And, we need a procedure DRAW which plots any given set of points* 
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To write these procedures we need a different representation 
for geometric objects, one which can be retained within the com- 
puter* (Clearly we do not have such a representation thus far 
our current objects are generated and drawn one line at a timeO 
Perhaps the simplest such representation is a list of pairs of 
numbers, each pair epresenting one point of the object. Then 
it is easy to write procedures, such as the following, which 
reflect a sot of points about the x-axis. 



TO REPLECTX :PAIR LIST: (:PAIR LIST: is the list of X Y 

number pairs) 

1 TEST IS :PAIR LIST: : EMPTY : (Are there any points left on 

2 IFTRUE OUTPUT : EMPTY : :PAIR LIST:? If not, terminate 

procedure) 

3 OUTPUT LIST OF 

FIRST OF :PAIR LIST: 

NEGATIVE OP SECOND OF :PAIR LIST: 

REFLECTX OF (BUTFIRST2 OF :PAIR LIST;) 

(Otherwise, output a list of the 
X coordinate and the negative ,)f 
the Y coordinate of the first 
number pair on :PAIR LIST:, and 
REFLECTX applied to the pair list 
obtained by deleting the first 
END number pair on :PAIR LIST:) 



Thus, for example: 

PRINT REFLECTX OF "1 2 4 3 7 11 2 --1' ' 
1 -2 4 -3 7 -11 2 1 



Using this and two similar procedures, one for reflecting 
about the 45 degree line through the origin, and the other for 
reflecting about the Y-axis, we can now write a procedure for 
random generation of figures having eightfold symmetry. 
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TO EIGHTFOLD :N: 

1 MAKE ''PAIR LIST" 

RANDOMLIST OF :N: 

2 MAKE ''PAIR LIST'* 

UNION OF (:PAIR LIST:) AND 
^ (REFLECT45 OF tPAIR LIST:) 

3 MAKE '^PAIR LIST" 

UNION OF (:PAIR LIST;) AND 
(REFLECTY OF ;PAIR LIST:) 

4 MAKE ''PAIR LIST" 

UNION OF (:PAIR LIST:) AND 
(REFLECTX OF :PAIR LIST:) 

5 DRAW ORDER OF :PAIR LIST: 



END 



(:N: is the number of pairs on the 
pair list that will be generated) 
(Generate a random list of :N: 
pairs, :PAIR LIST:) * 
(Form the union of jPAIR LIST: and 
the pair list formed by reflecting 
it around the 45 degree line, and 
make this the new :PAIR LIST:) 
(Form the union of the new list and 
its reflection about the Y-axis) 

(Do the same with the resulting list 
and its reflection about the X-axis) 

(Put the resulting pair list in 
lexicographic order and plot it 
using + ^ s) 



EIGHTFOLD generates random drawings such as the following 



+ + 
+ + + 

+ + + + 

+ + v + 
+ + + + 

+ 

+ + + 
+ + 



+ 



+ 

+ + 



+ + + + + + 



+ 
+ 



+ 



+ 



+ + 



+ + 



Using such basic transformation procedures we can study 
general Euclidean transformations. For example, we can develop 
methods for determining whether two randomly oriented polygons are 
congruent. Proceeding in this fashion we steadily progress from 
pre-mathemat ics to material of genuine mathematical content. 
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3. Dribble Files 

What we just sketched was an ^^deaT^ teaching sequence, Let 
us look next at what students actually did. We will not look at 
the entire development of a sequence of drawing programs, only at^ 
the form and organization of some nearly final versions derived 
from student interactions, Even in this condensed form, very 
specific information about individual student work, of interest 
for both research and teaching, is obtained, 

We begin by looking at examples of real student interactions 
in raw form, obtained from 'Mribble files" generated by the 
student and recorded by the computer while he works. We then 
consider more generally the work that students did to see what 
conceptual and pedagogic issues arise in the course of that work. 

The computer can present the student's work to the instructor 
in various ways. One important mode of presentation is. periodic 
listings of the student *s own program files. The student gener- 
ally updates *his program files each working session and these 
files contain nearly all the programs he writes. The instructor 
needs to know, however, not only the programs generated by the 
student but also how these were written, debugged, edited, and 
used . 

One way of giving him this inf orinat ion is through hard-copy 
transcripts of the student^s entire interaction with the computer. 
These can be obtained simply by using two-copy paper in the tele- 
typewriter. All the required information is acquired naturally 
and inexpensively in this way. 
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Unfortunately, the information thus obtained is not in a 
form that can easily be used. To make this information available 
for co'mputer retrieval and processing, we need to store it as it 
is produced. Such stored files of the student's entire dialogue 
with the computer, generated as he works, are called "dribble 
files*'. These files contain all the student's typed inputs, not 
just the programs and data that he himself chooses to store. 

Each typed input is given a "time stamp'' i.e., we record 
with the input line the total elapsed time from the entry of the 
previous line to the entry of the current line. Thus, we can do 
latency analyses as well as other processing involving considera- 
tions of time. We have extended the LOGO language processor to 
enable creation of dribble files as a by-product of student work. 
In these dribble files, we store the student's type-ins but not 
the associated computer responses. (The responses can easily be 
regenerated later.) 

In the next pages, we shall discuss the content and the uses 
Of such dribble file information. Dribble files of student 
programming generated in introductory mathematics course work 
at the University of Massachusetts will serve to illustrate the 
discussion. The following example shows the listing of a fragment 
of a dribble file made from the work of RC, one of the students. 
The file is identified on the top line: RC.DRB;2 along with the 
date and time it was generated. We have prefixed the lines with 
reference numbers p through 17. Each line starts off with the 
time stamp. Thus, in line 0 the number 0:00:10 means 0 hours 
00 minutes and 10 seconds of time required to complete this line. 

The material concerns the development of a procedure for 
drawing triangles. Lines 0 and 1 direct the definitions of the 
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procedures NUM and TRIANGLE to be listed. The resulting printouts 
are shown on the right. The TRIANGLE procedure is edited several 
times during this session: in lines 2, 3, and 4j later in lines 
6, 7, 8, and 9; and once again in lines 12, 13, and 14. In 
between these successive editing modifications, the effect of the 
changes made in TRIANGLE is tested by executing the procedure NUM 
with the input 8. This is done in line 5, then in line 11, and 
finally in line 15. The computer printouts from the executions - 
the various drawings - are shown on the right. At the end of 
this exchange (line 16), the final version of TRIANGLE (which 
still has a "bug" in its stopping rule) is listed. In line 17 
NUM and TRIANGLE are stored in their current forms in a file 
labeled "JOHN CAD". 



DRIBBLE FILE LINE EFFECT AS EXECUTED 

RC.DRBJ2 THU 29-APR-71 12j40PM 

0 0:00:10 LIST NUM TO NUM :N: 

10 MAKE "NU" 1 
20 TRIANGLE :N: 
END 

1 0:00:11 LIST TRIANGLE TO TRIANGLE :N: 

10 MARK "X" :NU: 
20 PRINT :EMPTY: 
30 TEST IS :NU: :N: 
40 IFTRUE STOP 

50 MAKE "NU" SUM OF :NU: AND 1 

60 TRIANGLE :N: 

END 

2 0:00: 10 EDIT TRIANGLE 

3 0:00:43 10 MIDDLE 50 "X" :NU: 

4 0:00:05 END 

5 0:00:09 NUM 8 X 

XX 
XXX 
XXXX 
XXXXX 
XXXXXX 
XXXXXXX 

xxxxxxxx 



o 
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6 0:01 :05 EDIT TRIANGLE 

7 0:00:26 50 MAKE "NU" SUM :NU: 2 

8 0:00:25 30 TEST IS SUM :NU: :N: 

9 0:00:03 END 

10 0:00:09 NUM8\8 NUM8 NEEDS A MEANING 

11 0:00:07 NUM 8 X 

SOMETHING MISSING. IS NEEDS 
ANOTHER INPUT. I WAS AT LINE 30 
IN TRIANGLE 

12 0:02 :49 EDIT TRIANGLE 

13 0:0J^:17 30 TEST IS SUM :NU: 2 :N: 

14 0:00:02 END 

15 ^:00 :06 NUM 8 X 

XXX 

xxxxx 
xxxxxxx 
xxxxxxxxx 
xxxxxxxxxxx 



16 0:00:38 LIST TRIANGLE 



17 0:01 :00 SAVE JOHN CAD 



WHEN YOU STOPPED ME I WAS AT 
LINE 50 IN TRIANGLE 

TO TRIANGLE :N: 

10 MIDDLE 50 "X" :NU: 

20 PRINT : EMPTY: 

30 TEST IS SUM :NU: 2 :N: 

40 IFTRUE STOP 

50 MAKE "NU" SUM :NU: 2 

60 TRIANGLE :N: 

END 



We could have illustrated the use of dribble files with more 
complex and technical examples such as from a sequence on formal 
differentiation in calculus. Instead, we have chosen to work 
with material derived from actual classroom teaching. As is 
evident from the above examples, the underlying issues of program 
form and organization arise even with relatively simple under- 
graduate material. Moreover, they do not essentially depend upon 
the programming language used. 
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If another programming language such as BASIC had been used 
instead of LOGO, the same organizational concepts would have 
appeared, though in somewhat different form. To illustrate, we 
include a triangle-drawing program written in BASIC. Though this 
program superficially appears quite different from the correspond- 
ing set of LOGO procedures, the two forms are very close. The 
process again falls into three parts the main part draws the 
triangle iteratively, one line at a time; this part calls a sub- 
routine which, like MIDDLE, draws a centered line; and this sub- 
routine itself twice calls another subroutine which, like MARK, 
types a row of characters. Within each part, of course, there are 
formal differences from the corresponding LOGO procedures. 
Iteration is performed here using FOR statements rather than by 
simple recursion, and all variable names have to be treated as 
global. The use of the program is shown following the program 
listing. 



(Corresponds to TRIANGLE 
using character A$ and having 
L rows) 

10 INPUT A$ 
20 INPUT L 

30 FOR K=l TO 2*L+1 STEP 2 

40 GOSUB 9000 

50 NEXT K 

60 GO TO 9999 

(Corresponds to MIDDLE, 
centers K markings of A$) 

9000 LET C$=" 

9010 LET N«2S-K/2 Marks 25-K/2 blank spaces 

9020 GOSUB 9100 
9030 LET C$=A$ 

9040 LET N«K Marks A$, K times 

90S0 GOSUB 9100 

9060 PRINT (Goes to the next line) 

9070 RETURN 
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' (Corresponds to MARK, types 

C$, N times) 

9100 FOR J=l TO N 
9110 PRINT C$; 
9120 NEXT J 
9150 RETURN 

9999 END 



READY 
RUNNH 

7* 
?8 

* 

* * ★ 
***** 
******* 
********* 
*********** 
************* 
*************** 



4. Building a Language and Monitor System for 
Processing Dribble Files 



The "dribble file" we have described contains all details of 
the student- computer interaction as it occurs at the teletype- 
writer. By replaying a dribble file, v;e can even get all tlie 
information at the systems level. Thus, the dribble file certain- 
ly contains all the raw data available for analysis. The very 
completeness and bulk of the information in the dribble file, 
however, discourage us from doino any searching and processing 
directly. We could have collected the data selectively to reduce 
the size of the file but preselection of the data to be preserved 
can turn out badly. Furthermore, any preselection rules can be 
dpi51ied to the dribble file itself which can then bo saved as a 
backup. With this strategy, if it turns out in light of 
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consequent results that a poor choice has been made, a new 
"preselection" can be done on the dribble file. This is our 
rationale for saving all the data. 

Since it is inefficient to use dribble files directly, we 
must ask what aids exist or can be devised to make their use 
manageable. The most rudimentary such aid is a text-editing 
language, such as TECO, as implemented on the PDP-10 computer 
system. Direct ch aracter - by- character match ing is made very easy 
by such a language. Thus, for example, one could delete all time' 
marks in a given file or all directly executed input lines. One 
could also delete all lines followed by an error message, if one 
can specify the format of an error diagnostic statement. These 
actions are all the results of simple format matching. Also, it 
is easy for a user to insert comments into a dribble file using 
TECO. If, in addition, one can combine series of the basic 
searching, inserting, deleting, and pointer-moving commands, with 
numeric and branching capabilities, there is the possibility of 
extremely sophisticated types of processing. In fact, the 
"Q-registers^' that TECO provides for storing stacks make the 
language perfectly general and permit Turing-machine- like 
programs to be written for all computable functions. One could, 
for example, with some effort write a program using TECO to find 
and enumerate all simple recursive programs in a dribble file. 

Unfortunately, in a practical sense this is about as far as 
one can go with TECO. First, one is writing programs in what is 
essentially machine- 1 anguage, a rather tedious undertaking. Also, 
it is difficult to write programs that are easily extensible. 

Thus, two requirements that a dribble file analysis language 
nust satisfy are already apparent. The language itself must be 
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natural in form to accommodate the unsophisticated user, and 
user-written procedures must be transparent to permit their use 
in further procedures. It is clear that such a language should 
appropriately incorporate the text-handling and editing features 
which are already in common use. By making the language self- 
extensible, so that sets of programs of any depth can easily be 
written, we satisfy the requirement of transparency. Also, it is 
much easier to write general programs in a se If- extensib le 
language. For example, instead of writing a TECO program which 
looks in the dribble file for an object of some given form, one 
can, with about the same effort, write a program in such a 
language, one of whose inputs specifies the form to be found. 
Also, a SNOBOL-like set of matching procedures could be written 
in the file analysis language itself instead of being given as 
part of the set of primitives. 

Let us discuss the use of the analysis language next. Often 
a teacher wishes to classify the programs written by his student 
in a way he specifies. It would clearly be very inefficient to 
have to perform this analysis on the same programs each time he 
looked at tho dribble files. The standard result of an analysis 
of a dribble file should therefore be a new file containing the 
processed data, with tags joining it to the original file at 
points of correspondence. This means that the user can look 
through the processed file using his own set of descriptors and 
can go back to the raw data whenever necessary. 

The idea of being able to operate upon the file at multiple 
levels of detail is of very general use. In analyzing the work 
of a student through his dribble files, there are several levels 
which may be of nearly sinultaneous interest. For the top level, 
a good mode of presentation might be a flow chart, dynamically 
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changing as the user scans the student's work, indicating all the 
programs in the student's workspace and showing the changing 
connections between them* At a lower level one might have a 
complete specification of all the student's programs at that 
moment in time. At the lowest level, one would probably want a 
"cleaned up'' version of the dribble file with (what the user 
considers) the obscuring features deleted. The analysis of the 
dribble file would begin at the top level. When programs of 
particular interest appeared, they might be listed or executed. 
Still further, the details of their creation end use by the 
student might be explored at the lowest level. 

Thus, we see the need for a set of programs enabling the 
user to switch back and forth between levels, zooming in when he 
needs more information, allowing him to vary his scanning rates, 
to go back and forth between current and previous material, to 
switch from scanning to execution mode, and so on. Let us 
consider next some kinds of information that will be of. interest. 

Apart from considerations specific to the content being 
studied, the user probably will be interested in general questions 
regarding the formal structure and organization of the student's 
work. Examples are: (1) What kinds of programs were used, i.e., 
what standard functions did the programs have (such as initiali- 
zation, testing, and computation)? (2) What elementary program 
forms were used (loop-free sequence, iteration, simple recursion, 
etc.)? (3) What was the program organization, i.e., how were 
the various programs combined (program tree, substructure type, 
recursion diagram)? Thus, we can characterize the functional, 
formal, and organizational features of the work or particular 
s tuden t s . 



ERIC 



1-16 



Report No. 2625 



Bolt Boranek and Newman Inc. 



For example, it is useful to follow the evolution and mastery 
of a given program form in the work of an individual student. 
One student, RC , early in the term was confronted by the need for 
a procedure to find the integral half of a number* Her algorithm 
consisted of successively adding 1 to a trial "half" and testing 
to see whether its double was within 1 of the original number. 
Having, after considerable effort, written the recursive procedure 
FIND to do this, she then saw the need for another program to do 
the initialization and wrote HALF. Annotated listing of both 
programs are given following. They fall neatly into distinct 
parts as labeled. The algorithm itself is, perhaps, not one that 
a more sophisticated programmer would use. Also, in many places 
RC is more obscure than is necessary. Real student programs are 
like this, however. 



TO HALF :N: 



(:N: is the number 
to be halved) 
(Set the "trial" 
value of half to 0) 
(Output the result 
of FIND as the 
answer) 



Initialize 



10 MAKE "TRIAL" 0 



Call Simply- 
Recursive 
Procedure 



20 OUTPUT FIND OF :N: 



END 



TO FIND :N: 



End-Test 



10 TEST GREATER? OF 2 

AND DIFFERENCE OF 

(:N:) (PRODUCT 2 :TRIAL:) 
20 IFTRUE OUTPUT :TRIAL: 



(Is 2*:TRIAL: 
within 1 of :N:) 



(If so, :TRIAL: is 
the answer 



I ncrement 



30 MAKE "TRIAL" 



(Otherwise , add 1 
to :TRIAL:) 



Recurs i on 



(SUM OF :TRIAL: AND 1) 
40 OUTPUT FIND OF :N: 
END 



(and repeat FIND) 
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About a week later the same student wrote a pair of programs 
to automatically draw triangles. We showed the dribble file for 
the last part of this development in Section 3. The form of 
these programs is nearly identical to the ones for halving, The 
only change is that each step of the recursive procedure TRIANGLE 
results in an action and this was not true for FIND. This task, 
however, only took about half the time required for the earlier 
one. Along with this, the problem was approached much more 
directly, as is evident from looking at the dribble file. 
Clearly, this program form was being internalized. 



Initialize 



Call Simply- 
Recursive 



Procedure 



TO NUM :N: 



10 MAKE "NU^' 1 



20 TRIANGLE :N: 



END 



(:N: is the number 
of X^s in the bottom 
row of the triangle) 
(Make the number of 
X's in the current 
row 1) 

(Draw the triangle) 



Action 



End-Test 



Increment 



Recursion 



TO TRIANGLE :N: 

10 MIDDLE S0 "X" :NU: 

20 PRINT ;EMPTY: 
30 TEST IS (SUM OP 

:NU; 2) (:N:) 
40 IFTRUE STOP 
50 MAKE "NU" 

(SUM OF :NU: 2) 

60 TRIANGLE :N: 
END 



(Mark the current 
row) 

(Start the next row) 
(Is this the last 
row?) 

(If so, done) 
(Otherwise , get 
number of marks In 
current row) 
(and repeat 
TRIANGLE) 



This example forms a small part of RC's work on the geometric 
figure drawing sequence. In all, she used three different program 
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forms: the one which we have just discussed which we will call 
form II; simple recursion which we label form I; and form 0 which 
is a linear sequence of steps, The diagram in Figure 1 shows all 
the connections between the various parts of the drawing sequence. 
The program forms are indicated in parentheses after each 
procedure name. (A more complete '*flow chart'' would show the 
conditions for recursion and termination of eadh procedure of 
form I or II, This information has been omitted, however, for 
the sake of clarity and conciseness.) 

Another student was working on programs for drawing geometric 
figures during the same period. The diagram associated with the 
work of this student, AF, is shown in Figure 2. Great differences 
in program organization in the two cases are apparent, even though 
the set of programs have the same final effect. 

These examples show some of the issues involved in analyzing 
complex student interactions. These students spent about three 
weeks near the beginning of the term writing these programs. 
Thus it is apparent that complex structures can be generated 
quickly, even by ''beginners". We need to consider next how such 
structures are retrieved from dribble files. 
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(II) 



MIDDLE (I) 



UPD (1) 
("upside-down" 
triangle) 



MARK (I) 
'I' 

S'J^'SRMARK (0) 




DIAMOND (0) 




RECTANGLE (I) 

(rectangle start- 
ing at left margin) 

STRIPE (1) 

(rectangular 
strips ) 



1 



rectan;; -E (O 

(rectangle 
centered on 
page) 



GLIRP (I) 

(The student's name for a 
series of diamonds and 
rectangles) 



Figure 1* Diagram of RC*s Drawing Program 
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MARK Cn 



RECTANGLE (I) 



(rectangle with 
spocifled start- 
ing margin) 



SIM-RECTANGLE (0) 
(centered 
rectangle) 



SUPERMARK C0) 



V 

MIDDLE (0). 



CONE CO 

( "upside-down" 
ts?iahgle) 



DIAMOND (0) 

I (This really draws 
.L a hexagon) 

SIMPLE-DIAMOND (0) 

j (This one draws a 
diamond) 

SAW (O 

(series of 
diamonds) 



TRIANGLE (l) 



SUPERSAV/ (0) 

(fixed series of diamonds 
and rectangles) 



Figure 2. Diagram of AF's Drawing Programs 
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S • The Raw Dribble File 

In this section we begin a detailed discussion of the 
processing of dribble files by first describing their structure, 
A dribble file is simply the very slightly altered input stream 
produced in the course of a single LOGO session. This input 
stream is generated both by teletype inputs as well as retrievals 
of previously SAVEd LOGO files. When a version of LOGO containing 
the dribble file generator is entered, the user is asked for 
identification INITIALS PLEASE, Entering the initials NMI 
aborts the dribble file generation process* Any other input is 
acceptable and is used as the name of the dribble file which is 
subsequently generated. (In our initial use of dribble files in 
teaching in spring, 1971, each student folloi/ed his initials with 
a digit to enable more than one file to be created under his 
initials on any given day. To avoid the overwriting and clobber- 
ing of previous files of the same student, automatic numbering 
was later implemented.) 

A sample segment of a dribble file is given in Table 1. 
This file was created during a student working session* Associ- 
ated with the file is a header which gives the date and time the 
file was created as well as the identifier entered by the student. 
The input stream following has been augmented by time marks at 
the beginning of each line; these give the elapsed time since 
initiation of the previous line* These time marks and the 
heading are the only modifications provided to the raw input. 

Two aspects of dribble files can easily be noted by 
inspection of Table 1, First, the special time mark 24:00:00 
precedes lines which were retrieved from storage, as opposed to 
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2/»:flf'j!09 
00:00 
2/i:f)0:OO 
2''< .•00:00 
24; 00: on 
24: 00:00 
24: 00: 00 
24:00:60 
24: 00:00 



TO 

30 
40 
50 
60 
END 



FIND :N: 

TEST GHEATEI^P "2*' DIFTEInEiNCE 
IFTKUE OUTPUT :Tf<IAL: 
MAKE "riUAL" SUM : TRIAL: "1" 
OUTPUT FIND J N: 



DIFFERENCE :N: :TRIAL» tTRlAL: 



24:00 



24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 



09 
OTi 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 

m 

00 

00 



0: 00 
0: 00 
0:01 
0: 09 
0: 00 
0:00 
0: 00 
0: 00 
0:01 
0: 00 
0: 00 
0:00 
0:00 
0: 00 
0:03 
0: 00 



00 
00 
00 
00 
09 
00 
00 
00 
00 
00 
OK 

00 
00 
00 
00 
00 
00 
00 
055 
00 
00 
00 
00 
00 

10 

17 

13 

18 

33 

07 

15 

25 

38 

29 

25 

10 

1 1 

b? 

20 

25 



TO HALF :N: 

10 MAKE "TRIAL" "0" 

20 OUTPUT FIND :N: 

END 

TO DELETE :CHAR: :N: 

10 TEST IS DIFFERENCE !N: 

20 IFTkUE OUTPUT RUTFIRST 

30 OUTPUT DELETE BUTFIRST 

END 



:CHAR! 

:CHAR: DIFFERENCE :N: "1 



TO STRIPE :M: 
1 SUBRECTANGLE 
20 SUBRECTANGLE 
TEST IS SUM 
IFTRUE STOP 
STRIPE :M: 



30 
40 
50 
END 



N : : Y : : S : 
:M: :N: :Y: 

M: :N: SUM :Y: " 
:Y: "1" :S: 

N: SUM :Y: "1" :S: 



All of the lines with 
24:00:00 time marks were 
retrieved sequentially 
from a LOGO file previous 
ly saved by the student. 
Their effect is to load 
the LOGO procedures FIND, 
HALF, DELETE, STRIPE, and 
MIDDLE into the workspace, 



TO MIDDLE :N: tX: 

10 MARK "//" DIFFERENCE HALF :N: HALF COUNT :X: 

20 TYPE :X: 

END 



MAKEtT »T 



:N: 



TO TRIANGLE 
TRIANGLE 3 
EDIT TRIANGLE 
10 MARK "X" 1 
40 MARK "X" SUM 
END 

TRIANGLE 3 
LIST TRIANGLE 
EDIT TRIANGLE 
23 T IS SUM 1 1 
A'} MARK "X" SUM 
END 

TRIANGLE 3 
LIST TRIANGLE 
LIST SUBRETO:0O: 16 
LIST SUPERKARK 



The remaining lines are student inputs 
to LOGO. The student is clearly 
involved in running, debugging, and 
editing a LOGO procedure, TRIANGLE. 



:N: 
1 1 



LIST SUBRECTANGLE 



TABLE 1. A "Raw" Dribble File Segment 
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those lines directly typed in, (Distinguishing between linos 
which were typed in from those which were retrieved is useful to 
the dribble file analyzer. More about this later on,) 

The other thing that should be noted is the appearance of 
occasional time marks in the middle of lines. This occurs when 
an input line has been terminated with a RUBOUT, rather than an 
EOL character, meaning that the user has aborted the input of 
that lino. The next line of input is then continued on the same 
line since no EOL*appears in the dribble file, 

A student session usually commences with a GET command, with 
which the student retrieves his work at the point he left off. 
The partial example, given as Table 1, represents about one fourth 
the length of a typical session involving beginning users. As the 
student progresses, his dribble files reach lengths of 10 pages or 
more for a 90 minute session. Our choice of recording only the 
input stream (instead of both input and output) arose largely 
from the great amounts of data generated in such sessions. We 
retain the minimum amount of information required t* completely 
reconstruct the student work at any point. Inclusion of the out- 
put stream would make the dribble file more readable, but would 
not be at all useful in such reconstruction. Such inclusion 
would much more than double the amount of information recorded, 
would lead to minor technical problems in mixing streams, and 
would require more CPU time in its generation. 



* 

The end-of-line character. 
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6 . Preprocessing of the R aw Dribble File 



The raw dribble file contains a good deal of information 
which is of marginal interest for most analysis and which there- 
fore can be eliminated. Character-by-character editing in the 
student^s work, for example, is of no general interest other than 
in statistical studies--the student has instantly corrected his 
typing errors without requiring feedback. Also, the raw dribble 
file has to be massaged to put it into a pattern transformable 
to LOGO data types. Preprocessing encompasses these two activities* 
It is implemented in the TECO text editing language, the actual 
programs being given in Part 2. 

Cleaning up of the files involves chiefly elimination of 
explicit line editing and spurious characters such as illegal 
control characters. Also, the various nonspace separators are 
spaced out for easy decomposition later on. Empty dribble file 
lines are rt;moved. Multiple spaces are eliminated automatically 
later on, so these are ignored. 

In order to be useable within LOGO, the successive lines of 
the dribble file are assigned as values of variables created by 
the preprocessing. At this level we must generate the actual 
assignment statements for subsequent execution. The statements 
have the form 

MAKE +T var name +T +T var value +T, 
where +T deliii)its both the variable name and the variable value. 
^These control T's are converted to quotes in subsequent process- 
ing.) When these assignment statements are read into a LOGO 
workspace with a GET command, they are executed and the bindings 
actually made. The variable names are created in the form 
"(n) N** where (n) runs sequentially from 1 by an increment of 1, 
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providing an ordering for the dribble file lines, and N is a 
literal denoting name. The value of each such variable is the 
actual content of the associated dribble file line. If the line 
is one retrieved from a pre-existing LOGO file (with time mark 
24:00:0)5), an additional assignment statement is generated of the 
form, 

MAKE. fT (n) A fT IT STORED +T. 
Use of this set of auxiliary variables will be discussed in the 
next section. 

To use the preprocessing program, the user enters TECO and 
types ;Y LOADER. TECJ HXAJ MA^ . This sequence of steps loads the 
loading macro and initiates its execution. The program asks the 
user for the name of the input file the one to be preprocessed 
and the name of the output file, in which the result is to be 
stored. Since, for our purposes, no useful information is 
destroyed during preprocessing, as a general practice we overwrite 
the output onto the input file. In Table 2 we give the preprocessed 
form of a roughly corresponding segment of the raw dribkl^ 
material shown in Table 1. The first line of Table 2 is the 
beginning of the stored procedure DELETE, The last lines of the 
two tables correspond. 
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♦ Ttl3 


A< 




♦TSTOREO^T 






HAKE 


♦ m3 


Ni 


>T 


♦TTO DELETE 


t CHAR i i M :♦! 




HAKE 


tTtlli 


Ai 


H 


♦TSTORED^T 




MAKE 




N< 


► T 

* 


♦110 TEST IS OirrSRENCS t N I 


H ^ « « 0 HfT 


nXKE 




A< 




♦TSTORED^T 




MAKE 


tms 




► T 


♦T20 IFTRUS 


OUTPUT BUTFIRST ! 


CHAR |tT 


HAKE 


tme 


Ai 


n 


♦TSTORED^T 




HAKE 


♦ TU6 




► T 


♦T30 OUTPUT 


DELETE BUiriRST : 


CHAR 1 DIFFERENCE I M | •« 












M1 "♦! 


HAKE 


♦ TU7 


A^ 




STORED ♦T 






HAKE 


♦ TU7 


IP 


rT 


♦TENO^T 






HAKE 


tms 


A 


♦ T 


♦TSTORED^T 






HAKE 




.V 


»r 


♦TTO STRIPE 




I S ItT 


HAKE 


♦ ru9 


A 




♦TSTORED^T 




HAKE 




N 


♦ T 


♦T1 SUBRBCTANGLE t H t 1 U 1 


t If ItT 


HAKE 


tT50 


A 


»T 


♦TSTORED^T 




HAKE 


tT53 


N 


»T 


♦T20 SUBRECTANGIE : M I I N ! 


SUM 1 y t 1 ♦*♦! 


HAKE 


tT51 


A 


►T 


♦TSTORED^T 




HAKE 


♦T51 


H 


ft m 


♦T30 TEST IS SUM I y J « 1 « 


1 5 !tT 


HAKE 


»T52 


A 


♦ T 


♦TSTORED^T 






HAKE 


♦ T52 




n 


♦Ta0 IFTRUE 


STOP»T 




HAKE 


tT53 


A 


♦ T 


♦TSTORED^T 






HAKE 


tT53 


N 


♦ T 


♦T50 STRIPE 


i M } } H t SUM t 


y 1 " 1 : s fjT 


HAKE 


tlSti 


A 


^T 


♦TSTORED^T 


HAKE 


tT5U 


N 


♦T 


tTEND^T 






HAKE 


tT55 


A 


n 


♦TSTORED^T 






HAKE 


tT55 


H 




♦TTO MIDDLE 


1 M 1 t X |»I 




HAKE 


tT56 


A 


»T 


♦TSTORBD^T 




HAKE 


♦T56 


N 


tT 


♦T10 MARK » 


» DIFFERENCE HALF 


1 H 1 HAir COUHX I X MX 


HAKE 


tT57 


A 


»T 


♦TSTORED^T 




HAKE 


tT57 


N 


♦ T 


♦T20 TYPE 1 


X J»T 




HAKE 


trse 


A 


M 


♦TSTORED^T 






HAKE 


tT58 


N- 


H 


♦tend^t 






HAKE 


tT59 


A 


■ * 


♦TSTORED^T 






HAKE 


tT59 


K 


♦T 


♦tkakb+t 




• 


HAKE 


tieo 


N 


»T 


♦TTO TRIANGLE 1 H MX 




Hake 


♦ T61 


11 


rT 


♦TTRIAHOLE 


3^T 




nAKE 


♦ T62 


N 


r T 


♦tedit triawgle»t 










> T 


♦T10 MARK 


X I^T 




HAKE 




VI i 

N ' 


' T 


♦T£*0 MARK 


X « SUM X " ItT 




HAKE 


tr65 




>T 


♦TEND^T 




HAKE 


♦T66 


Ni 


fX 


♦TTRlAHGLE 


3^T 




HAKE 


tT67 


Hi 


► T 


♦TLlST TRIaNGLE^T 




HAKE 


♦ 168 


Ni 




♦tedit triangle^t 




HAKE 


♦ T69 


Hi 


fX 


♦T20 T IS SUM 1 1 J N ItX 




HAKE 


♦ 170 


Ni 


fX 


♦m0 MARK 


X •* SUM 1 IfX 


* 


HAKE 


♦ 171 


lU 




♦tend^x 






HAKE 


♦ 172 


^* 


X 


♦TTRIANGIE 


3»T 




HAKE 


♦ 173 


Hi 


I 


♦TLIST XRIaNGLE^T 




HAKE 




Ni 


X 


♦TLlST SUBRECTftNGLS»T 




HAKE 


♦ 175 


Ki 


T 


♦TLIST SUPERMAKKtT 





TABLE 2. A Segment of a "Preproces sed" Dribble File 
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7 . Parsing of the Dribble File 

In the previous section we have discussed preprocessing of 
"raw*' dribble files. To initiate the processing phase, the pre- 
processed file mu^t now be copied into LOGO- compat ib 1 e form by 
use of the LOGO command COPY> which has the general form: 

COPY (quoted system file name) [^jQ^'j (unquoted LOGO filename, 
entryname) 

For example, if the preprocessed file was given the name 
GLICK. LESSONl 

COPY ^*GLICK. LESSONl'' TO GLICK LESSONl 

creates a LOGO file with roughly the same name as the preprocessed 
text file. If we now use the LOGO instruction LIST ENTRY GLICK 
LESSONl, we get almost exactly the same printout as from the 
(TENEX) system instruction LIST GLICK. LESSONl; the only difference 
being tnat the control-T's have become quotes. The important 
difference is that 'invisible" heading information has been added 
so that the LOGO instruction GET GLICK LESSONl results in the 
MAKE statements being executed and the appropriate bindings 
entered in the workspace ready for manipulation. 

Following a COPY and a GET of the form described in the 
preceding section, the analyst has all the lines of the dribble 
file in his LOGO workspace. Each line could now be executed using 
the LOGO DO command, and a simple iterative procedure suffices to 
execute the dribble file lines to any desired point. Such a 
direct attack has both unfortunate as well as inconvenient 
consequences. First, one is not executing the statements of the 
dribble file in precisely the same environment in which they 
were first produced. In particular, a GET statement might not 
GET the entry fetched by the original execution of that command 
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and a SAVE might be disastrous, possibly clobbering a subsequently 
produced entry, replacing it with an outdated version. It is 
precisely for this reason that the input stream resulting from a 
GET has been incorporated into the dribble file. Both the GET 
and SAVE commands, tlierefore, should be no-ops, i,e.> have no 
effect. Similarly, execution of GOODBYE might well be inconvenient. 
Also there is little point in executing lines with simple parsing 
errors , 

A second difficulty in direct use of a dribble file lies in 
the generation of the information required for the graphical 
representation of procedure structure. Each procedure line has 
to be broken into elements and each element looked at to determine 
procedure interconnections, And, this process has to be repeated 
each time a structure is elicited further along in the file. 
Also, in a simple direct mode of dribble file access, many invest- 
igations such as following the evolution of a procedure definition 
would unnecessarily require execution of the entire dribble file 
segment • 

These difficulties are easily resolved by the generation of 
auxiliary information for use in conjunction with the dribble 
file itself. Such information includes various data which 
expedite the execution of the dribble file such as data pointing 
out the non-utility of dribble file lines and, where appropriate, 
data to speed up graphical displays of procedure interconnections. 
The other useful type of information is concerned with answering 
analytic questions which really shouldn*t require execution of 
the file. For example, a catalog of correctly parsed procedure 
lines enables the system to give the definition of any procedure 
at any point in the dribble file by a simple lookup procedure, 
(This cannot be done by simply looking for the definition lines 
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directly because the ''state" of the workspace must also be known.) 
Furthermore, as the user, through experience, evolves definite 
patterns of cmalysis of student dribble files, he can incorporate 
more and more of this analysis into procedures which generate 
desired information before the dribble file is scanned. 

We call this phase the parsing phase, although parsing is 
not the only activity performed at this time. The purpose of the 
parsing phase is to make the execution and scanning of the dribble 
file efficient and simple at a reasonable cost in time. The 
general idea is to provide the analyst, and the analysis system, 
quick access to information which is likely to be required 
repeatedly in going through a dribble file while carrying oat 
investigations . 

The procedures making up our parser are given in Part 2. We 
give here only a summary of the parser's effects and structures. 
Each line is parsed and inspected e lemcnt -by-e 1 ement with the 
following effects: Some lines are not to be executed automatic- 
ally, notably those with errors that might be fatal. '^or the 
line numbered "(number) N" an associated variable of the form 
"(number) D" is given data which label the line as having 
deleterious effects during execution (the user will usually wish 
to inhibit their execution during his analysis). Examples of 
such data are indicators for the commands GET, SAVE, and GOODBYE, 
as we just noted. Also included in this class are lines with 
simple parsing errors--such errors are not executed by LOGO and 
have no effect on the workspace. Also, in the absence of error- 
trapping capabilities, parsing of such lines always pops the 
user back to the top level of LOGO, inhibiting execution of 
whatever analysis program is being used. 
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Such annoyances can be avoided by skipping over badly forjued 
lines. These errors, although chiefly parsing errors, can have a 
semantic flavor, however, because LOGO is in one of two states at 
any point - defining or not defining. The state is completely 
determined by finding which procedures have already been defined. 
Thus, we can get values for ^'(number) like "NOT DEFINING", and 
"FOO ALREADY DEFINED" in addition to local parsing error indicators 
such as "MISSING QUOTE". The general strategy is to suppress 
execution of all such lines, i.e., to skip over line "(number) N" 
if "(number) D" is not empty, although, as we see later, the 
decision to skip or execute can be conditional on the content of 
"(number) D" . 

As the parser goes through procedure definitions, a list of 
defined procedures is built up under the name "FINAL CONTENTS". 
The value of this variable is considered a list of triples, the 
first element of each being the procedure name, the second the 
dribble file line on which the procedure has been defined, and 
the third the number of inputs the procedure must take. This is 
the top level of the catalog mentioned above. At the next level 
down, for each procedure FOO, there is a variable "STRUG FOO" 
taken to contain a set of pairs. The first element of the pair 
is a dribble file line number, the second is the line of FOO 
which has been defined on that dribble file line. Thus, the 
evolution of any known procedure can be traced, using just 
"STRUG (pname)" and simple lookups, and a list of the procedures 
defined at any point can be easily determined using "FINAL 
CONTENTS". (At any point in time, we have, of course, not a 
true temporal referent, but the last line of the dribble file 
which has been, or is considered to have been, executed.) 

The parsing package, as described, gives all information 
necessary to run through the dribble file and this routine 
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operation is described in the next section. The user is also 
able to specify additional work to be done during parsing. In 
fact, as he gains experience with the system and his inquiries 
become more and more sys te:!iati c , incorporation of his individual 
facilities might substantially modify the original parsing 
package and lead to the development of a customized semiautomatic 
system. To make such additions to the parsing procedures easily 
available to the user, we have included four special entry points 
in the form of the empty procedures $EXAMINELINE, $USEUPLINB, 
$EXAMINEEL, $USEUPEL. 

$EXAMINELINE and $USEUPLINE are invoked as each succeeding 
line is first looked at. The difference between them is that 
$EXAMINELINB is to be a command which has no effect on subsequent 
parsing of the line; whereas $USEUPLINE must be a predicate, 
returning TRUE or FALSE in addition to any action it may perform. 
If $USEUPLINE returns TRUE, parsing cf the line is Inhibited and 
the next line is accessed. 

Similarly, SeXAMINEEL is a command which is invoked as each 
element of the line is examined. $USEUPEL (like $USEUPLINE) is a 
predicate and it returns TRUE or FALSE corresponding to skipping 
to the next element or continuing* A fifth procedure $ENDLINE is 
invoked after the line is parsed to permit "cleaning up" of the 
work the user-defined procedures may have done. 

Each of these empty procedures is "filled in" in the usual 
way, by defining a LOGO procedure with that name. If these empty 
procedures are not "filled in", parking is carried out in the 
standard manner. These procedures, if wished, can be used to 
modify as well as examine the line being worked on--the name 
"CURRENT LINE" is given to the current line and its remaining 



ERIC 



1-32 



Report No. 2625 



Bolt Beranek and NewiDan Inc. 



portions as it is processed. Its number is :LINE NO:. Any of 
the five procedures may be defined to modify any of the global 
variables described earlier or, for that matter, to define new 
ones. In Part 3 we give two examples of definition of such 
procedures. One example deals with parenthesis-checking, the 
other with checking for command or operation. 

An annotated listing of the parsing system is given in 
Part 2. A brief description of these procedures follows here, 
however, as an aid to the user who wishes to extend thein. The 
top-level procedure is $PARSE which performs the necessary 
initialization, elicits a dribble file name, fetches it, and 
calls $GOTHROUGH to step through the lines of the dribble file. 
$STARTLINE then begins the actual parsing by passing the line to 
one of several procedures, depending on the type of line. Direct 
lines are immediately scanned, element-by- element , by $DOLINE; 
procedure definition lines pass first through $STOREDP. The 
other possible branches are the self-explanatory $PARSETO (for 
parsing procedure title lines), $PARSEEDIT, $PARSEEND, 
$PARSEERASE, $PLERASE (for line erasure, ERL), $PLEDIT (for line 
editing, EDL) . These, in turn, call procedures which handle 
various levels of detail. $EXAMINELINE, $USEUPLINE, and $ENDLINE 
are, as might be surmised, contained in $STARTLINE and the pro- 
cedures $EXAMINEEL and $USEUPEL in $DOLINE. Uti 1 i ty p rocedure s 
include $GOODPARSEP :N: which checks emptiness of : (N) D:, i.e., 
whether the line passed muster or might need to be inhibited 
during execution, $ADDERROR which adds to : (N) D: , and $ADD 
:PLACE: : MES : which adds :MES: to the contents of :PLACE:. 
Table 3 is a summary of the variables used in parsing. 

In generating the structure elements : (N) C: used for graph- 
ing student procedure structures, it is necessary to check 
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8 . An Example of the Output of Parsing 

In the following pages we show the results of $PARSE on a 
dribble file. The input is preserved--it is simply the "(n) N" 
and "(n) A" values. The structure variables cover the entire 
dribble file, though we show only part of the file in the example-- 
we leave out some of the middle, as indicated. (It has been left 
unchanged by parsing.) Again the control T's (iT's) are inter- 
preted by LOGO as quotes. Table 3 summarizes the meanings of all 
variables used in the example shown in Table 4. Following the 
first three assignment lines, the middle portion repeats the out- 
put of the preprocessor (lines 1 N through 90 N; we show only 
the beginning and ending lines). The last part of the listing 
shows the final form of the parsed lines. We show all lines 
through 75 C, which corresponds to the last line of Tables 1 and 2. 



HAKE 
HAKE 
MAKE 
MAKE 
HAKE 
KAKE 
HAKE 
HAKE 
HAKE 
HAKE 
HAKE 



tTCUBRENT LiNEtT tTtT 
tTCURRENT PROCtT ♦TTRIAN6LE»T 
tlFlNAL CO^■TBHTStI tlTRIAHGLE 



tI1 
tT2 

♦ T3 

tm 

tT5 
tT6 
tT7 
tT8 
«T9 

♦ T9 
tT10 



NtT 
NtT 
NtT 
NtT 
NtT 
NtT 
NtT 
AtT 
NtT 
AtT 



♦TXO TRIANGLE : N 
♦T10 HARK " X "tX 
♦T2a T IS SUH " X 
tX3a IPT STOPtT 
tTug HARK SUM " X 
tlENDtT 
tlTRlANGLE 
tlOET JOHN 
tTSTOREOtT 
tTTO MARK : 
tTSTOREDtT 



" 1 



1 1 HARK 9 2 SUPERHARK I5 U REC^ANQ 
«*LB 19 5 SUBRECTANGLE 26 3 7IN0 33 
*« 1 HALF 39 1 DELETE M3 2 STRIPE U 
• •8 «t MIDDLE 55 2 HUW 87 1 TRIANGLE 
•< 90 1 TRIANGLE 176 ItT 



J N JtT 



3»T 
CADtT 

CHAR t i H ItT 



• • • 

• • • 

• « • 
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HAKt ♦T80 NtT ♦TiS TYPEtT 

MAKS tiei HtT ♦TL'DIT TRIANOLE^T 

HAKE ♦r82 NtT 'TIS TYPE " 

HAKE ♦XSS HtX ♦TiS PRINT " «tT 

HAKE ♦T8U NtT tTENDtT 

MAKE tTtS NtT tTERASE TRTlANGLEtT 

HAKE tT86 NtT ♦TTO { N Jtli 

HAKE tr87 NtT tixO NUH J N JtT 

HAKE tT88 NtT t<ri0 m;^ke i N : 1tT 

HAKE tr89 NtT txsNotr 

HAKE.ttga NtT txTO TRlANGlE S H JtT 



HAKE tTSTRUC TRjANGLEtT tTl 0 2 3 



tl 5 63 64 69 70 80 82 83 85 ERASE 90 
*• 0 91 92 93 9U 95 111 123 125 126 

127 ia3 1«« 160 ERASE 176 0 179 
• • 18UtT 



T2 CtT tTTRlANGLE HARKtT 
T3 CtT tTTRlANGLEtT 
Tt| CtT tTXRiANGLEtT 

T5 CtT tTTRlANGLE MARK ItT , 
T6 CtT tTTRlANGLEtX 
T7 CtT tTXRiANGLEtT 
T8 DtT tTNOT-CURREHTtT 

TSTRUC HARKtT tT9 0 10 11 12 13 160 ERASBtJ 

ri0 CtT tTMARKtT 

Til CtT txMARKtT 

T12 CtT txKARKtT 

T13 CtT txHARK HARKtT 

TIU CtT txMARKtT 

TSTRUC SUpERHARKtT tTIS 0 16 17 160 ERASBtT 
T16 Ctx tJsUpERMARK HARKtT 
T17 CtT txsUpERMARK MARKti 
Tie CtT tTSUpERHARKtT 

TSTRUC REcTANGLBtT tT19 0 20 21 22 23 2^ 160 ERASEtX 

120 Ctr txRBcTA»GLB SUPERHARKtT 

121 CtT txRBcrANGLEtT 
T22 CtT txRECTANGLEtT 
T23 CtT txRBCTANGLEtT 

T2a CtT txRECTANGLE RECTANOlBtT 
T25 CtT tTRECTANGI.StT 

TSTRUC SUBRBCTAHGLDtT tT26 0 27 28 29 30 31 160 EBASBtT 
T27 CtT tTSUBRECTANGLE SUPBRMAFKtT 
128 CtT txsUDRECTAUGLEtT 
T29 CtT txsUDRECTAHGLEtT 
T30 CtX tTSUBRBCTANOLEtT 
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HAKE 


tr3i 


CtT 


♦TSUDRECTAHGIE RECTAHGLEtT 


HAKS 


tT32 


Cf T 


tTSUBRECTAMGLEtT 


HXKS 


tTSTRUC 


FiNDtT tT33 0 3« 35 36 37 160 ERASEtT 


HAKE 


tT3U 


CtT 


tTFlHDtT 


HAKE 


tT35 


CtT 


♦TPIUDtT 


HAKE 


tT36 


CtT 


♦TFlNDtT 


HAKE 


♦ T37 


CtT 


tTFlKD riND»T 


HAKE 


tT38 


CvT 


<TFlHDtT 


HAKE 


tTSTRUC 


HAirtT tT39 0 40 t| 1 160 ERASEtT 


HAKE 


tma 


CtT 


♦THALFtT 


HAKE 


♦ r« 1 


CtT 


tTHALF FiNDtT 


HAKE 


tTU2 


CtT 


♦TKAlFtT 


HAKE 


tTSTRUC 


DELETEtT tTU3 0 UU t|5 tJ6 160 ERASEtJ 


HAKE 


tr«y 


CtT 


♦TDELETBtT 


HAKE 


tru5 


CtT 


tTDELEIEtT 


HAKE 


tTue 


CtT 


♦TDELETE DElETEtT 


HAKE 


tr«7 


CtT 


tTDBLETEtT 


HAKE 


tTSTRUC 


STRiPBtT txas 0 ^t) 50 51 52 S3 160 ERASEtT 


HAKE 


tTM9 


CtT 


tTSTRIPE SUBRECTRNGLEtT 


HAKE 


tT50 


CtT 


tTSTRiPE SUBRECTANOtBtT 


HAKE 


tT51 


CtT 


♦TSTRIPEtT 


HAKE 


tT52 


CtT 


^TSTRIPEtT 


HAKE 


tT53 


CtT 


tlSlRlPB STRIPEtT 


HAKE 


tT5« 


CtT 


♦TSTRlPStT 


HAKE 


tTSTRUC 


HIODLEtT tT55 0 56 57 160 ERASEtT 


HAKE 


tT56 


CtT 


tTMlDDLE MARK HAIF HALFtT 


HAKE 


tT57 


CtT 


tTHlDDLEtT 


HAKE 


tT58 


CtT 


♦THiDDLEtT 


HAKE 


tT60 


Dt T 


♦TALREADV-DEFINEDtT 


HAKE 


tT61 


CtT 


*TTRT.ANGLBtT 


HAKE 


tr63 


CtT 


tTTRlAHGLE MARKtT 


HAKE 


tT6« 


CtT 


♦TTRIANGLE MARKtT 


HAKE 


tT65 


CtT 


♦TTRlAHGLEtT 


HAKE 


tT66 


CtT 


♦TTRlANGLEtT 


HAKE 


tT67 


CtT 


tTTRlANGLEtT 


HAKE 


tT69 


CtT 


♦TTRlAHGLEtT 


HAKE 


tT70 


CtT 


tTTRIANGLB HARKtT 


HAKE 


tI71 


CtT 


♦TTRlANGLEtT 


HAKE 


tT72 


CtT 


♦TTRlAHGLEtT 


HAKE 


tT73 


CtT 


♦TTRlANGLEtT 


HAKE 


tT7t* 


CtT 


tTSUBRECTANGLEtT 


HAKE 


tT75 


CtT 


tTSUPERHARKtT 



TABLE 4. Listing of a $PARSE Output 
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9 . RUNning the Dribble File j 

In this section we describe the RUN system and the RUN phase 
of the analysis. Once the parsing of the dribble file, with its 
attendant generation of auxiliary information, is completed, the 
file is ready to be studied. We call the analysis subsystem 
which is used for this the RUN system. 

9 . 1 The Display Configuration 

In its present form the RUN system uses an IMLAC display 
terminal for graphic as well as alphanumeric presentations. The 
specific graphics commands and their implementation are discussed 
in the system documentation (Part 2); here it suffices to mention 
that these include both relative and absolute vector drawing 
capabilities as well as various alphabetic subroutines. The 
graphics capability is chiefly the drawing of procedure structure 
diagrams similar to those shown in Figures 1 and 2 above; the 
bulk of the information presented is in alphanumeric form this 
includes both the analyst's commands to the system and the 
unfolding of the dribble file, i.e., the student commands and 
their consequent output. 

The alphanumeri cs are kept separate from the graphics the 
top part of the IMLAC screen serves as a scrolled teleprinter, 
the lower hclf serving for graphics. A sample screen is shown in 
Figure 3. (The photocopy was made by a hard-copy device associated 
with the IMLAC.) In the situation shown, the dribble file user 
typed WHERE to the dribble file system which responded immediately 
below, telling him what point has been reached in the analysis. 
The user then typed a DISPLAY command (DISPLAY "KEEPTALKING'') 
which resulted in the procedure structure diagram being displayed 
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U?V3*Jii L\UZ S? 
UhICh 1$ 

?n^0O-CHOO&£ CCTf.Ou?, cr!vCf>a CElnDJ GtTCONN 
Tnlil ^5-^"^:'*- StH,P,C5.CM G!0<.lM inur rtmuum nrut BEEN 




(Note: The procedure names in the boxes, 
although quite readable on the screen, do 
not reproduce legibly.) 



Figure 3. Example of a RUN system Interaction on the IMLAC 
Display Terminal . 
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underneath. Procedure structure diagrams are discussed below, as 
are WIIKRE, DISPLAY, and the other RUN system commands. 

9, 2 The Augmented Dribble File 

In RUN phase, the analyst has a considerably augmented dribble 
file to work with. In addition to a copy of the original file, 
he has the auxiliary data summarized in Table 3 above. Generally 
speaking, these fall into two classes, the automatically generated 
"comments" "(n) A" "(n) B" and "(n) D" and the reconstruction aids 
of the form "(n) C', ''FINAL CONTENTS", "STRUG (pname)". In 
addition to providing textual information, these comments may be 
considered a descriptor set that can be used as switches by run- 
time commands, A standard example of the use of such a switch 
is in the conditional execution of the lines of a dribble file, 
as when the analyst skips over those obviously defective lines 
labeled by a non-empty "n (D)". 

Besides the special, temporarily used variables generated 
by the graphics package subroutines, there are just two global 
variables which are monitored by the RUN system. "DRIBBLE NO", 
initially 0, gives the line no, up to which the dribble file has 
been executed, "GURRONT PROGEDURK", initially empty, gives the 
name of the procedure currently being defined in the course of 
execution of the dribble file. (The latter piece of information , 
although obviously known to the LOGO language system, is not 
otherwise accessible to LOGO programs,) 
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9 . 3 Execution of Dribble File Lines 

To begin use of RUN, the command $STARTRUN asks for a dribble 
file name and initializes the system. The analyst then has two 
essentially distinct modes of interaction. First, and most 
straightforward, he can execute the dribble file sequentially in 
a variety of different ways, depending upon the kind of information 
he wishes to extract. Alternatively, he can interrogate the 
dribble file without any execution, possibly in a nonsequential 
manner. And, of course, he can intermix these two modes. 

In the first mode of work, the analyst has three kinds of 
execution facilities available to him. First, he can simply look 
at the lines of the dribble file as they are being executed 
together with the computer responses that they generate. He can 
execute the dribble file one line at a time using the command 
$DOLINE. This results in the next dribble file line being 
printed (with three asterisks on each side to set it off) and 
then the execution of the line, if it has parsed correctly. 
$DOLINE then stops. He can perform a specified niamber of lines 
with the command $DOTO ;LINE NUMBER:. And, he has available a 
conditional stop as follows. $DOUNTIL :DESCRIPTOR: executes the 
dribble file until the specified :DESCRIPTOR: is found (as the 
comment associated with that dribble file line), Finally, 
$DOALL executes the entire dribble file line-by-line. $DOALL, 
- $DOTO, and $DOUNTIL call $nOLINL repeatedly* 

A second source of information is from '"looking around," 
after having executed the dribble file up to some point, The 
analyst can list the definition of any procedure in the dribble 
file which is defined at that point. He can execute any 
procedure (the student's or his own) or, generally speaking. 
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perform any LOGO commands. There is, of course, the danger that 
in certain activities, such as redefining student procedures, the 
user will destroy the "state of the world," Therefore, we have 
provided the self-explanatory commands $SAVEKORLD and $GETWORLD 
to enable a user to save the state of the world, make any modifi- 
cations that he might desire, and when he is finished to get back 
to where he was. It is, of course, only necessary to use these 
commands when the user intends to type LOGO commands which will 
modify the existing procedure structures or global names. The 
user may define his own LOGO procedures to aid in the "looking 
around" process. The Analysis Package (Part 3) contains several 
examples of debugging and modification routines which are typical 
of such procedures. (The naming conventions sentences for 
global procedure names and $ as first character of procedure 
name must, of course, be adhered to in such procedures to avoid 
conflict with student programs,) 

The third execution-based type of information is a. diagram 
of the procedure structure at any point in the dribble file. By 
using the command $DISPLAY :ROOT: the user generates a graphic 
representation of the procedure structure starting at ;ROOT:. 
The primitives for this display are generated as part of the 
augmentation of the dribble file during "parsing," 

$WHERB is a general interrogatory command which tells the 
user where he is in the dribble file-~that is, up to which line 
he has executed, and the set of procedures which have been defined 
at this point. As part of the graphics display, if a procedure 
is being defined at that point, we also show, in smaller print, 
the entire definition of the procedure at that moment in time. 
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For the other major mode of run-time analysis, a completely 
separate class of commands enables the user to interrogate the 
dribble file without any execution. The command $ALLDESCR outputs 
a list of all the different descriptors used in comments through- 
out the dribble file. This command is useful in connection with 
subsequent execution because any of these descriptors can be used 
as a modifier with $DOUNTIL to terminate execution. We can also 
obtain the set of lines containing any given descriptor with the 
command $FINDLINES :LINE NUMBER: : DESCRI PTOR : . This command 
types all the lines after :LINE NUMBER: in the dribble file which 
contain that descriptor. 

We can readily construct the definition of any procedure at 
any point in the dribble file using only information that was 
there during parsing, i.e., without any execution whatever. 
$STEPTHROUGH .'PROCEDURE NAME: prints the successive variations of 
:PROCEDURB NAME: as subsequent lines were defined: it first 
gives the original title of the procodure, then the first line, 
etc. If a line is replaced, the new line replaces the old line* 
Thus the definition of :PROCEDURE NAME: "unfolds" in time. 

9. 4 Modifying the Display 

Two predicate procedures are included in the package to 
facilitate user modification of display and execution of dribble 
file lines. (Of course, an ambitious user can modify the package 
in other ways.) $NICEP enables the user to define additional 
criteria for execution or non-execution of dribble file lines. 
(Lines which parse badly are never executed independent of 
$NICEP.) If $NICEP outputs "FALSE", the line is not executed. 
Initially, $MCEP is defined as. 
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TO $NICOP 

10 OUTPUT "TRUE" 

END 

Additional lines of the form IF OUTl'UT "FALSE" can be added to 
achieve the desired effect. 

$SHOWLINI:P can be used to control the form of the dribble 
line display. For example, the user may not wish to see the 
stored lin^s being retrieved by a GET contained in the file. 
Initially $SHOWLINEP is defined as: 

TO $SHOWLINEP 

10 OUTPUT "FALSE" 

END 

This defaults to the standard display of each line. The 
output "TRUE" overrides this display, thus to avoid seeing stored 
lines, for example, merely change line 10 to 

10 IF $STOREDP :DRIBBLE NO: OUTPUT "TRUE" 
ELSE OUTPUT "FALSE" 

where $STOREDP merely reports the non-cmptiness of "(iDRIBBLE NO:) 
A". 

9 . 5 Summary of RUN Commands 

The RUN system commands are listed and briefly described 
in Table 5 following. 
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$STARTRUN 
$DOLINE 
$DOTO :N: 
$DOUNTIL :COND 
$DOALL 



initializes RUN system 

executes next line of dribble file 

executes until line :N: 

executes until the comment ;COND: is found 
executes entire dribble file 



$SAVEWORLD 
$GETWORLD 



save current status of workspace 
retrieve previously saved status 



$WHERE 



prints information on current position in 
file 



$DISPLAY :ROOT: 



displays procedure structure as of current, 
position in dribble file, starting at 
:ROOT: 



$ALLDESCR 
$FINDLINES 



N 



lists 
; DESCRIPTOR: 



$STEPPROCEDURE : PNAME : 

$NICEP 
$SHOWLINEP 



all comments in dribble file 

lists all lines after :N: contain- 
ing :DESCRIPTOR: as part of the 



commen t 



^'unfolds" definition of 
entire dribble file 



PNAME 



acres s 



user-defined procedures to 
modify di sp lay 



TABLE 5. Summary of RUM Commands. 
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Part 2. 
System Documentation 
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1. Introduction to System Documentati on 

In the preceding User's Guide (Part 1) we have given a 
general description of the parts of our dribble file analysis 
system as well as instructions on tlieir use. Here we present 
the annotated set of programs as a more complete documentation 
of our system. For ease in user extension and customization, 
all these programs except for a few very trivial front end 
procedures were written in the LOGO programming language, a 
complete description of which is contained in the Appendix. 

Generally speaking, there are two types of information of 
interest to a user in the analysis of dribble files. First there 
are queries which involve, or potentially involve, the entire 
state of the world created by the student's work up to that point. 
(What happens when this program is run with inputs X and Y?) 
A common query of this kind calls for execution of a procedure, 
possibly invoking any number of other procedures. 

On the other hand, a question may require only a very small 
local part of the state of the world for its answer: at what 
point was procedure P defined? what was its definition at 
time t?, etc. Questions involving the entire state of the world 
require that the entire state of the world be recreated. It 
turns out, however, that auxiliary information generated during 
pre-processing of the dribble file can be used to directly answer 
broad classes of this latter type of question without having 
difficult searches or any live execution. 

Furthermore, as we will describe later, the preprocessing 
can be modified by user-written or user-specified programs so 
that auxiliary information is generated in advance to answer 
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efficiently v;hatever additional classes of "local*' questions are 
deemed to be of interest. 

Thus, we subdivide the preprocessing phase into two subphasos, 
first, the preprocessing proper in which relatively straight- 
forward modifications are made to the text to put it into a form 
better suited for further work and> second, a preanalysis or 
parsing phase in which the auxiliary information mentioned above 
is generated. These two parts of the preprocessing are sharply 
distinguished in our implementation, which has a TECO macro 
preprocessor driving a LOGO "parsing analyzer," 

Section 2 of the system documentation contains a brief 
description of the ground rules under which the programming was 
performed. Sections 3, 4, and 5 contain annotated listings of 
the three parts of the system described above preprocessing, 
parsing, and running. Further information on the graphics 
capabilities utilized is required, since LOGO graphics tend to 
be relatively sys t em- dependent , Section 6 contains a description 
both of the facilities used and of otlier possible configurations, 

2 , The Use of LOGO as Both System and Object Languag e 

In addition to using the LOGO programming language as an 
"object language" for student programming work, we have chosen 
it as tlie vehicle for implementation of the dribble file analysis 
system. Our choice of LOGO for the analysis system programming 
language was made with considerable deliberation after consider- 
ing several other alternatives, including LISP, PL-I, and 
FORTRAN IV, Those very features which make LOGO so useful in 
the classroom are the ones that enable a relatively unsophisti- 
cated user to modify and extend the programs in the dribble file 
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analysis system. Chief among these features are a procedural- 
based programming heuristic and an unusually pure and con text - fr'^e 
syntax. 

We realized that there are certain dangers in choosing the 
same language for both the analysis and the object being analyzed. 
The fact that, in a sense, LOGO syntax is used to analyze LOGO 
syntax can lead to a system inbred to a degree which makes trans- 
ferability to other object languages impossible in any practical 
sense. For example, error diagnostics can be generated directly 
from the run-time stacks instead of by an external parsing 
procedure. In the extreme case, the dribble file analysis system 
could become just an extension of the LOGO interpreter. 

To avoid such difficulties, we made the firm rule that the 
only way in which the LOGO interpreter would be used in conjunc- 
tion with the contents of dribble files would be via an EXECUTE 
LINE type of command (that is, in ^'running" dribble files. All 
sorts of. editing and viewing are pernjitted as long as they are 
external to the LOGO evaluator.). Everything else would be done 
by procedures external to this interaction (which ''happen" to be 
written in LOGO). This decision enables the system we have 
developed to be useable with any language having some sort of 
execute command (i.e., with virtually all languages). All that 
needs to be done is to have the execute command implemented 
inside the LOGO interpreter . More will be written later about 
differences between various "object languages'* vis-a-vis the 
design and use of the dribble file analysis system. 
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^' The Preprocessing 

A general description of preprocessing appears in the User's 
Guide. The preprocessing is done by a set of eight TECO macros, 
which are called in turn by a '^loading" macro that also elicits 
input and output file name. The specific effects of each macro 
are as follows: 

LOADER) Loads rest of TECO macros, elicits input and output file 
designations, and executes macros. 

1) Erases first line of dribble file which just contains 
identification. Changes ^ and (+s) to (eoT) (ASCII 31) 
to ensure proper line termination. Checks for last 
character of file being (^EOL^ • Changes line feed to 
space . 

2) Finds rubouts, deletes line to that point. Marks 
Crubout^ at end of preceding line. 



3) Finds lines containing (HJ) and QvR) and changes all 
editing characters to textual equivalents, since at this 
point it would be top difficult to tecovev the context 
in whi ch ^N) and (f^ operate . 

4) Performs effects of \ and ^W) , in order, left to right. 

5) Finds stored lines and marks them with @. 

6) Kills time marks. 

7) Numbers lines and comments (RUBOUT and STORED) .in form 
as LOGO names . 

8) Spaces out separators. 



TECO is the character-oriented text editing language on the 
DEC PDP-IO. It is described in the DEC System-10 User's 
Handbook and the modifications made by BBN are given in TENHX 
TECO, a BBN report, NIC 19937. 
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LOADliR.TEC 

♦Hi I; 

■£r<aHe . TSC tY EHX 1 l.ERTUa . T EC-'i;HX2i.ERTHREE . TECiH'.-i?. FERFOUR . TEC* HX4i:ERF I VE . TECl 
*■ ♦i^X5 1;£R S I X. TECi:HX6 tERSE VEH . TEC i.HX? f-ERE I GMT . TEC m<3l 5 Y tf-1 1 iNi: i;M3:I.[14i.H5 FMo 



ONE. TEC 

OJ.tK-.t<: £ff-m3i il> O.J.I;<: .^^^IE£§> 

-Di-I F>t<:S\SP; .P-riI..31I:I;>.i;<:2-i;. JI,art-.5I> -rif; 



TWO. TEC 

OJi:<:S|;; .i;OK:£-£Ci; < Irl- 1 £?> "HBl^?! I:M;:> 



THREE. TEC 



O Jl:<: .Snit; 0K< <1- < <lfl-3 1> ♦ <1R-.31> > > j <lr=i-92> "EF-Dir^r-lSLflSH*' i Cia-^.^J "Ei:- 

♦ ♦D F I CTRL -U F ' tj < 1 a- 1 4> " EiF-D E ICTRL-H F ^F O fl- 1 .5> E F -D F I CTRL-R F " F> F > 0- I F < : S F S 

♦ ♦0K<<l-<<lR-.31>»Clft-3i:O> J <lfl-i3;) ■•E:F-ri:FI".':-;SLF);SHF'':Fa^i-£.3> ■•EF-IrFICTRL-M 

♦ ♦ F' t < 1 rt- 1 4> ■• E F-D F I CTRL-H F ^ F < 1 fl- 1 3> " E F-D F I CTRL-R:F ' .F> *> 



FOUR. TEC 

1 

0Ji:!f:Ei5!CF<.-Z.VEFa£<ND.F'' F<lh(-3a> "EF-E'D FDBEG F O ri-£.3-. "EE-rrF*'-.- F n - < (1 rt- ^ 
♦ ♦i;;r*<lfl-3E>*<lfl-3i>4.<ia-3i;0> ; FDF>F^EaEEGF!EHri!i; ^- t i - 

♦ 
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FIVE .TEC 

Jt<: so: 00: 00|:; L-CI;liiB> 0J<: .524: 00: OOf! -DiL-CI:l.PF.> 



SIX. TEC 

I 



SEVEN. TEC 



EIGHT. TEC 



-F 

JM.'«*if,;l?*i?X'!^:i:fif-}**} *}?" »>*oj<.s.*„-,ci *icti *>(.j<, 
»lc»',>%Jj<;i.|;|:!sJ{ »>«j<'«<»'»-k" "c«i *>oj<„>„*-, 
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4 . Parsing 



The procedure structure of this section of the program is 
quite completely discussed in the User's Guide. The main omission 
there is discussion of multiline commands - EDT, EDL, and two-line 
MAKE commands. These are all handled correctly by the parser, 
except in those cases for the first two in which* IN and fR 
are used. The parser simply puts such lines as comments following 
the EDT or EDL instead of expanding them. It is not particularly 
difficult to handle this properly if it is felt necessary to do 
so. The annotated program listings follow. The main procedures 
are given in a fairly natural order, followed by the small utility 
programs marked U, and empty user- definable procedures (as 
described in the User's Guide, Part 1) marked E. 



m 

TO SPARSE ;VOP LEVEL PARSING PBOCEDUHJJ; 

0 SSIHITNAMES 
20 TYPE "DRIBBLE FILE!" 
30 00 SENTEWCh; "GET" REQUEST 
U0 SGOIHRCUCH 1 
EKD 

(2] 

TO ISIHI IKAinCS ;IKITIALIZES LIST OF BUILTINS TO BE OF PORn "{BUJLTIN) BP 

IS "k"J 

0 ERASE ALL NAMES 
20 SSIX S:i>CP 
END 

I3j 

TO $$IX ILISI; ;USED BY INITNAMBS; 
.0 IF SHPTYP :LXST: STOP 

20 HAKE SENiENCE "BP" FIRSI :LlST{ "A" 

30 $$IX BUTi-IKST :LIST! 

END 

It ' 
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[4] 



TO $SBP ;U-i.D BY $$IX; 
0 OUTPUT "ABBRSVlf.TE* AND ASK A3 SACK BOTH BUTFIRST BUTLASI CANC'xiL CLOCK 

•* COUNT DATE DIFFERENCE DIVISION 00 
*♦ EDIT EDiitlNE EDITTITLE EITHER EM 
•♦PTYP END ENTRIES ERASE ERASELINB B 
**XIT FIRST FRONT GET GO GOTOLINE GO 
x^ODBICE GKEATERP KORH IFFALSE IFTRUE 
IGNORE IS LAST LEFT LINES LIST LO 
• ♦CAL HAKE MAXIMUM MlNinUil HUM8ERP 0 
•♦F OUTPUT PRINT PRODUCT QUOTIENT RA 
♦♦NDOn REMAINDER REQUEST KESSTCLOCK 
♦♦RIGHT SAVE SENTENCE SENTENCE? SIZE 
«♦ STOP SUM TEXT TEST THING TIME TIT 
«*LE TO TOUCHLEFT TOUCHRIUHT TRACE T 
♦♦XPE WAIT WORD WORDP ZEROP + - ♦ / 
*♦) { IF THEN ELSE ABB BF BL C DIFF 
♦♦EDL EDT El BP ER BRL F GTL GB GP I 
♦♦FF IFT L MAX HIN NP OP P pR QUO RE 
•♦H REQ S SP SS T WP W ZP SENTENCES 
«*SS «" 

END 



[5] 



TO SGOTHRCUGH :DRIB8LE No; ;ITBRATBS parsing THROUGH LINES; 
5 HAKE "CUERZNT LIHE" SENTENCES THING SENTENCE '.DRIBBLE NO: "N" 
.0 TEST EMPiYP .'CURREN'I LINE: 
20 IFTRUE iCLEANUp 
30 IFTRUS -iOP 
^^ SSTARTLINE 

50 SGOTHRCUCiH SUM JDRIBBLE NO; 1 
END 
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[(>] 



^TP., $STARTLI»E ; PARSES ONE LIN£» DISPATCHES ON TlfPE OT LINE TO $D0I,IKE,$2 

♦ ♦MAKi; (2LINE MAKE) $bTORBD OR ONE 0 

♦ ♦F VrtE P«OCEOURES INDICATED ON Li'NE 

•0 SEXAMINELINE 
20 IF JUSEUPLIKE STOP 

30 HAKE "CUHRENT LINE" iSUcKALLSEMIS SCURHENT UNEJ 
U0 TEST SSrOREDP 
50 IFTRUS i..NULINE 
60 IFTHUE .VOP 

70 TFSr $HP FIRST :CURR3HT LINE: "GET SAVE GOODbXE GB CANCEL GO" 
80 IFTRUE iADUSRROR "NOT^CUKRENT" 
90 IFTRUE t^NULlKE 
.00 IFTRUE STOP 

.10 IF NOT ^ITHEt< $2MAKE IDISPATCHP FIRST :cUrtRENT LINE: "TO SPARSETO ED 

♦ ♦IT iPARHEjSDiT END JPAKSEEND ERASE 
**$PAKSEEKAbE EKL JPLBRASE EOL iPLED 
•♦IT EDT iPTEDlT TITLE IPTITLE" THEN 

$DOLINE 

20 $ci;dlin- 

END 



(7] 



TO IDIS P ATCH? :el: ;list: ;calls procedure on tusn which follows :el:, 

OUTPUTS "FALSE" OH FAILURE; 

;0 IF EHPTYP :IIST: OUTPUT "FALSE" 

20 TESi IS fif-.st :list: 

25 IFTRUS HAKE "CUP.?.St:T LINE" BUTFIRSf :CURRENT LlNs: 
30 IFTRUS DO r-lKST EUTFIRST :HST; 
U0 IFTRUE OUTPUT "TRUF" 

50 OUTPUT luisPATCHF : El : *butfirst butfirst :list: 

END 
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(8] 



TO SDOlINt: /'HANDLES "NONSFUCIA LINE;; 

0 IF BMPxyp :cuRaENr i,iia:: sfov 

2« 5Z.XAMIHK..L 
22 X}:Sr SU.-.UPKL 
25 IFIRUS SUOLINB 
28 IFTRUE TOP 

30 TESI EITHEK NUl^BSRP FIRST tCURRENT LINK: SBUlLXINP FIRST ICURRgNT LIN 

**E ! 

U0 IFTRUB lUKt; "CURRENT LINE" BUTFIRST SCURRKNT L1N2! 
- 50 IFTRUE SUOLINE 
60 IFTRUE . X'OP 

70 TEST IS flHST :CUF.RENT LINtJ tOUOTE: 

80 IFTRUE MAKE "CURRENT LINE" $SUCK«UOTE BUTFIRST ICURBBNT LINB| 
90 IFTIiUE SDCLINE 
.00 IFTRUE STOP 

;10 TEST I FXHST rCURRENT LINE; " ; 

120 IFTRUE flAKE "CURRENT LINE" SSUCKSEMl BUTFIRST jqURREHT LINEj 
;30 IFTRUE iDOLI!^E 
,Hd IFTRUE STOP 

.50 TEST I: FIRST SCURRDIJT LINE: ":" 

i60 IFIRUE KAKL "CURRENT LINE" $SUCKDOTS BUTFIRST {CURRENT LINBj 
;70 IFTRUE iDOLXNE ^ 
•80 IFTRUE bTUP 

-.90 SADDSTRUC FIRST rCURREUT LIKEJ 

200 HAKE "CURRENT LINE" BUTFIRST JCURHENT LINE! 

210 SDOLINS 

END 



[9] 



TO $2HAKE ;HANDL£S 2 LINE HAKES; 

0 IF NOT IS :CURR£NI LINE: "MAKE" OUTPUT "FALSE" 
20 $PL2MAKE 
30 OUTPUT "TRUE" 
END 



ERIC 



2-10 



Report No. 2625 



Bolt Beranek and Newman Inc. 



[103 



TO $PL2HAKE ;USED BY $2«AKE; 

.0 IPXRUE J-'A1)U£SR0R "WULTIIUKE-IUTERRUPTED" 
2fl IFl'FUK iADUUP.J^OR "HULTl-n^KE-INi'KPRUPiaD" 
30 IPTRUi; -VOP 

U0 Ti-Sr SRUbOUTp SUM JORIBBLE KOJ 1 

50 IFTRUE SAUUfJRP.OK " Ml) LTI-MAK E- 1 NT ERRU PT BD " 

60 IFIRUB iADD SLNTEWCE SUM tDRIUBLE KO: 1 "D"' "MU^XI-MAKfi-INTERRUPTED" 
70 IFTRUS :V0P 

80 $}vDD SENTENCE IDRIUBLE HOt "N" SEHTENCiJ XHXNG SUM :DRIBBLE NOJ 1 "N" 

♦♦THING SENTENCE SUM {DRIBBLE NO? 2 
♦ • " H " 

90 $ADD SEHIENCE SUM : DRIBBLE NO! 1 "D" "IGNORE" 
.00 $ADD SEKIEKCE SUM jDRlBBLE NO; 2 "D" "IGNORE" 
i10 HAKE "CURRENT LINE" THING SENTENCE :DRIBBLE NO? "N" 
20 SSTARTLINE 

END 



TO ISTOREDP ;USED BY S-STaKTLINB TO HANDLE PROCEUURB LINE; 
»0 IF NOT UUIiBERP FIRST '.CURRENT llUZi OUTPUT "I'AlSu" 
20 SDOSTOKED 
30 OUTPUT "VRUE" 
END 



[12] 



TO tPOSTOBED /USED BY STOREDP; 

TlS^IF EliPTYP tCURRENX PROC: $ADDESROR "UOT-DBflNING" 

20 IF GRSATiRP 1 FIRST :cURRENT LINE! SADUERROR "IN VALIO^LINENO" 

23 SADDSTHUU sentence JCURRENT PHOC! FIRST :CUR«ENT LINE! 

25 MAKE "CURBiiNT LINE" BUTfXRST {CURRENT LINE! 

30 SDOLINE 

^^ IF IGOODPARSEP tDRlBBLE NOt lADD SENTENCE "STRUC" {CURKEST 

♦♦BHCE {DRIBBLE NO! FIRST 



50 IP NOT iGOODPARSSP :0RIB8LE NOJ 



END 



♦♦ENCE JDHIBBLE NO! "N" 
MAKE SKNTENCE {DRIBBLE NO J 



PROC! SENT 
THING SENT 



"C" !BHPXY 
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tl3] 



TO tPARSETO ;CALLSD BY ISTaHTLINE TOR PFOgiDDUHE DEFINITIONS/ 

0 JDOTITiB FIRST :cUSREMT LINE: BUTFIRST ' :cUKRf NT LINE: 
END 



[14] 



TO SDOYITLE ZNAKC: IRRGLIST: ;USED by IPAKSBTO FOH PROCEDURE DEFINITION 

♦♦LINES; 

10 SCHECKHANE :.VAME: 

50 SSTARTUElf- :KAME: fCOUNTARGS :arglist: 
END 



[15] 

TO^^CHECKNAME :NAK,E: JCHECKS VALIDITY OF NAME FOR DEFINITION OR 

**REUEF1N1TI0NI 
(0 IF NUMBE«P :NAHE; J.ADDERROR "NUHBER-NAi'lE" 

20 IF $HP INRME: SENTENCE "( ) : ;" :QU0T1S: JADDERROR "SEPARATOR, NAME" 
30 IF IBUILWINP ;1JA;-iE: J-ADDERROR "BUILTIN-NAMii" 
t»0 IF $DEFINiUP :NAHB: SaDDERROR " ALHEADY-DBFiNtlD" 
END 



[16] 



TO ssTARTUEf :nahe: :n: ;parses TITLE line; 

:0 IF NOT iOOODPuRSEP : DRIBBLE NO: STOP 
;5 MAKE "CURRENT PROC" :NAHE: 

20 $ADD SENTZNCE "STRUc" SHAKE; SENTENCE iDRlBBJiB HOI 0 
30 JADD "FINAL CONTENTS" SENTENCES ; NAKE :: DRIBBLE NO: :N1 
END 
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[17] 



TO iCOUKTAPGS :LIST: :C1R! ;CHECKS VMIDITY AND COUNTS ARtiS OT ARGUst I 

**n title; . 

5 IF EITHER IS FIRST :lIST: "AND" IS i'lRST rLXSi'l "OF" OUXPUT SCOUNrAKGS 

• » BUTFlKS'i ihlST. ,CrH, 

10 IF EMPTYP {LIST: OUTPUT :CTR; 

20 IF IS FIKST ;LIST: OUTPUT SCOUNTAKGS JSUCKPOTS BUTflHST JLIST; SU 

♦♦M :ctr: 1 

30 IF IS FIRST :list: output ^countarus ssucksehi butfikst jlist: tc 

♦ *TR : ■ 

ii^ SADDERROR "'BAD,.ARGU1-1ENT" 

50 output 

END 



[181 



TO SDSFINEDP :NA.1K! ;IS :NAi1£: CURRENTLY PEFINEU?; 
".0 M'aKE "NAflE" THING SENTENCE "STRUC" IN'AflE: 

20 IF EITHER EMPTYP :Na:1E; IS LAST : NAME : "ERASE" OUTPUT "FALSE" 

30 OUTPUT "iRUE" 

END 



[19] 



TO SPARSEEDIT /'USED BY iSTARTLIHB FOR ALL EDIT COMMANDS; 
.0 TEST IS FIRST {CURRENT LINE: "LINE" 
20 IFTRUE tPLEDII 
30 IFTRUE ..'iOP 

33 TEST IS {CURRENT LINE: "TITLE" 
36 IFTRUE iPIEDir 
38 IFTRUE ^ XOP 

t|0 TEST IS COUNT {CURRENT LINE! 1 

50 IFFALSE »AUDERPOR "EXTRA"ARG-IN-EDIT" 

60 IFFALSE STOP 

70 TEST SOTK iDEflNSDP FIRST {CURRENT LINE: EMPlYP JCURRENT PROci 
80 IFFALSE 4ADDERR0R "BADEDIT" 

90 IFTRUE MAKE "CURRENT PROC" FIRST {CURRENT L1NE» 
END 
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[20] 

go !BPTgDIT ;TlTLi: EDIT-IGKO«E iHliS COMHANU AND FHilCEDK NEXi^ UNE WITH "T 

0 TZST EHPvyy vjUTFIRST :CUHI<ENT LINE! 
20 IFFALSE »Al)DKBROK " BATO -TITLE-KDIT " 
30 IFFALSE STOP 
U0 SADDERROH "iGliORS" 

50 XF NOT IHUOOUTP SDPIBBLE NO; MAKE SBHiL\'iC£ SUH ;DRIBBLE NO! 1 "N" SEN 

♦ •TEliCE "Tl'ILE" THING SENTENCE SUM : 

♦ *DRliJBLE Not 1 "N" 



[211 

TO JPLEDIT ;LXNe 



EDIT^PUTS BDITTIHG 



!0 IGNORE SCHECKLINE 
30 IF SRUEOUTP :DRI3BLE KO 
U0 $ADD SEiJ'lENCE " ; " THING 



COMMANDS UN LlNs FOLLOWING ftS COKJIEN 
♦*TS AT END OF PRESENT LINE FOR HAND 
*♦ INSERTION BY USER; 



STOP 
SENTENCE 



SUH J'^RIBBLt; 
•*LE NO; "N" 
"D" "IGNOKE" 



NOJ "N" SENTENCE ;DRiBB 



50 $ADD SENTENCE SUM IDRIBBLE NO! 1 
END 

[22] 

TO SP aRSEE KU ;USED by SSTARTLINE for THE END COnHAHU; 

yp rcufipcMT line; 

"EXTKA-IN-EKD" 



<0 
20 
30 
40 
50 
60 
END 



rtsr BKP- 

IFFALSE iADDERROR 
IFFALSE STOP 

t;:st Eiipvyp jcOreekt pboc: 

IFTRUS tADUEHROR "SUPERFLUOUS-END" 
MAKE "CuKKENT PR)C" ;EK?TV: 



[23] 

TO $P ARSEEr. ASE ;USED BY TSTARTLINE FOR ALL ERASE COMMANDS; 



LIKE; "LINIi" 



LINES "ALL" 



:0 TEST IS ilWST 'CUKRE.sT 
20 IFTRUE iPLtiRASE 
30 IFTRUE ::top 
33 TEST IS FIRST tCURKEKT 
36 IFTRUE iPAKSEERAL 
38 IFTRUE :X0P 

Ud TEST IS COUNT ;CURREKT LINE: 1 
50 IFFALSE iAUDERROR "BAD^ERASE" 
60 IFFALSE STOP 

70 TESI SDEFIMEDP FIRST tCURPENT LIKE; 
80 IFFALSE *AUDt;nR03 " NOTHI NG - TO- ER A SE " 
90 IFFALSE STOP 
00 IF IS "CURRENT PROC" FIRST :CURRENT 

♦ ♦ ; 

.10 SERASBPK :CURP£.NT LINE; 
END 



line; make "CURRENT PROC" ;EHPTY 
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[24] 

TO $PLEPASE /HANDLES KnASa LINE; 

0 IF NOT iCKECKHMr. STOP 
10 IF iGOODPAKSEP JDRlBULE KO: lADD 



END 
[25] 



SENTEHCE "STRUC" tcURKEWT PROc? SBKT 
•*ENCE :DRIBBLE NO: WORD "-" LAST !C 
•*UnRENT LIHEJ 



TO tCHECKLINE ;CHECKS VALIDITY OF LINE BEING CALLED FOR ALTSRATJOK OR ER 

♦ ♦ASURE ; 

.0 TEST BOTH NUMBER? FIRST BUTFIRST ;CURREHT LINEJ EKPTYP BUTFIRST BUTFI 

«*RST :CUHRtNT LINE; 

20 IFTRUB SADDERHOR "NOT-DEFINING" 
25 IFTRUE OUTPUT "FALSE" 
30 TEST EHP : yP : CURRENT PROCEDURE J 
U0 IFTRUB *ADUERKOR " NOT r.DEFINIKG " 
50 IFTRUE OUTPUT "FALSE" 

60 T^lST $np LAST '.CURRENT LINE: THING SEHXSNCt: "STRUC" {CURRENT PROC : 

70 IFTRUE SADDERHOR "NO-SUCH^LINE" 

80 IFTRUE OUTPUr "FALSE" 

90 OUTPUT "VRUE" 

END 

[26] 



TO SPAR SEERAL .'HANDLES ALL ERASE ALLS; 
.0 make" "CURRENT LIKE" BUTFIRST {CURRENT LINE: 

20 TEST EITHER EMPIYP iCURRENT LINES EITHER IS :CURRENT LINEJ "pSS" IS 

♦ ♦CURKiJWT line: "PROCEDURES" 
30 IFTRUE MAKE "CURRENT pROC" {EMPTY} 

35 IFTRUE MAKt SENTENCE SDRIBBLB NO! "H" "$ERASEALt'» 
U0 IFTRUB SPARSEERALL :FINaL CONTENTS: 
US IFTRUB ■/iOP 

50 IF IS :CURKENT LINE: "TRACES" STOP 

60 TEST IS {CURREKr LINE: "NAhES" 

70 IFTRUB iADDERROR "NOT-CURRENT" 

80 IFTRUE o'iOP 

90 SADDERROR "BAD-ER ASE- ALL" 

EKO 



[27] 

TO SPARSEERALL :LIST; /HANDLES ERASE ALL; 

0 IF eTpYTf :list: stop 

20 IF SDEFI.N2DP FIRST :LISr: iERASEPR FIRST JLIST; 
30 SPARSEERALL BUTFIRST BUTFIRST BUTFIRST :LIST: 
END 
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[28] 



TAJMASJPJ?. :name{ muiidlrs erase jnmie: ; 

■0 $ADD SBNT2NCE "STRUc" :NAHE: SEHIt-NCE i 
20 $AOD "J'IKAt COHTKNTS" SeNTEMcKS <KAKS: 
END 



DRIBBLE NOJ "ERASE" 
IDRlUahE NOj "EKASE" 



[29] 

-TO SPTITLE ; HANDLES TITLE COMMAND; 
;0 TEST IS flKST :CURRENT LINE: "TO" 

20 IPTRUE SCHANGETITLB FIRST BUTI'IRST tCURREHT LlNEj BUTFIRST BUTFIRST J 

30 IFFALSB tADDERROR "BAD-TITLE, COMMAND" 
END 

[30] 



TO 
0 
20 
30 
<I0 

50 
END 



SCHANGETITLE 
IS 



name: ;does work for sptiile; 

J name: : current procedure? 

»CHSCKtUIi3 tNAHEJ 

VEST KOr SGOODPaRSBP IDRIBBLE NO; 
4ADD SENTENCE "STRUC" }HAHE! IHING 

• tPROC : 

SSTARXUEF .'NAME: SCOUNTaRGS JARGLIST: S5 



TiiST 
IFFALSE 
IFFALSE 
IFFALSE 



SENTENCE "STRUC" JCURRENT 



{31] 

TO SCLEANUP {CLEANS UP AT END OF PARSING; 

0 PRINT "PARSING COMPLBTED, SAVE THE DRIBBLE FILB," 
20 MAKE "DRIBBLE NO" 
30 DO "ERA.-, L ALL PROCEDURES" 
END 



UTILITY PROCEDURES 



TO ISUCKALLSsniS SLINE: ;RB»OVeS ALL PAIRS OF SfcHlCQLONS aNQ THEIR CONTB 

• *NTS FROM :LINf,:; 
i0 IF NOT 13 FIRST :LINEJ ";" OUTPUT !LIHE: 
20 OUTPUT SSUCKALLSEillS JSUCKSEHI BUTFIRST jLiNEI 
END 
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TO $SUCKSL'r.I J LIKE! ;UTILIIX, SUCKS UP CONTJiN'iS 01 SEHICOIONS; 

0 IF EltHEK iJtlPlVP SLlNV.t IS FIRST lUNEl " ; " OUTPUT BUTflRST ILINBJ 
20 OUIPUI ISUCKStHI BUiriRST JLIHL': 
END 



TO $BUILTI«P lHki\Z'. ;UTILITY, IS INAMBS K BUILTXNV; 
.0 if EMpryP THING SEHIENCS "BP" iMAtlUS OUTPUT "FALSE" 
20 OUrPUT "JRUK" 
END 

TO $SU CK0UOi- }j :LINE: ;UTILITY, SUCKS UP COHTENTS OF A PAIR OF QUOTES; 
.0 TB:ST EMPi'YP SLINr-:; 

20 IFTKUE JADDURROR "MATCHING-QUOTE" 
30 IFTRUE OUTPUT SEHPTX: 

10 IF NOT IS FIRST SLINK: tQUOTEt OUTPUT iSUCKUUOTE BUTFIRST UINeJ 

50 OUTPUT BUTFIRST JLINEJ 

END 

TO SSUCKPOTS SLINE; ;UTILITX, SUCKS UP CONTENTS OF h PAIR OF COLONS; 

*0 Tssi IS FiKST :Li«r: 

20 IFIRUE iADUERROR "EMPT^-NAME" 

30 IFTRUE OUTPUT J EMPTY: 

«*0 OUTPUT tSUCKDOTSI BUTFIRST JLINEJ 
F.MD 

TO $ADDSTRUC !EL: ^UTILITYi ADDS lELJ lO SET OF STRUCTURE EirEHENTS BELON 

♦•OIUU TO "IDRIBBLB HO) C"; 

.0 IF NOT EMPTYP JCURRENT PROC! MAKE SBN'IEiiCE JPRXBBLE NOJ "C" SENTENCE 

**THING Sb'HXENCy JDRIUBLE No: "C" :E 
♦ ♦LJ 

EHD 

TO tGOODPARSEP !N! ;UTlHTy, DOBS DRIBBLE LINc; !Nl HAVE ANY PARSING ERRO 

•♦RS?/ 

:0 OUTPUT EMPTY? THING SENTENCE J N J "D" 
EHD 

TO $SUCKD0TS1 : LIKES ;USED BY SUCKDOIS; 

0 TEST B«PiVP :link: 

20 IFTRUE tAUDBRRCR "i1 ATCHING^DOTS" 

30 IFTRUE OUTPUT SEHPflfJ 

Ua IF NOT IS FIRST sLXtJKS "l" OUTPUT *SUCKD0IS1 BUTFIRST ILINEJ 

50 OUTPUT BUTFIRST SLINES 

END 
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TO $HP {THING: :LIST: ;UTlLlTlf» IS {THING} AN ELKMENT OT ILISTJ?; 
.0 T2SI E«PiVl> .LIST. 
20 IFTRUE OUTPUT 'TMSE" 

30 IP IS ::-h.:ng; fikst :list: output "TflUL" 

U0 OUTPUT tfiP iTJillJGJ BUTilRST :LIST; 



TO $;.DDERROR JMES} ;UTILITy, ADDS jMESt AS "ERRUR" XB TO VALUE OF "(DRIB 

**BLE NO) D"; ■ 
.0 $/vDD SEIi'VSNCE {DRIBBLE NO: "D" IHESJ 
EKD 



TO lADD {PLACBI :MSSJ /UTlLIir, CONCATENATES {MKSi WITH CURRENT VALUE OF 

*« {PLACE:; 

10 MAKE {PLACE; SBHTSNCE THING {PLACE: {MES; 
EWD 



TO SAPDSySC :rtES: ;aDDS COHHEWT to current dribble file LiNE (TO VARIABL 

•*E "(DRIBBLE HO) B"); 
■0 $ADD SBH'jENCE {DRIBBLE K0{ "B" :I1ES{ 
END 



TO SFUBOUTP :N: ;UTILITX, was line following :N{ RUBBED OUT? NEEDED FOR 
. **MULT1LINE COMMANDS SUCH AS EDT, MA 

•♦KE etc; 

0 OUTPUT Jtl? "PUBOUT" THING SENTENCE :N: "A" 
END 

/ 
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USER'-DCFINABLI; PROCIiDURBS 



j^Q ■f.'^XAHIKE- L JEMPry PROCEDURE DSFINABIE UY USEK (SEE USEKS GUIDE). FILL 

♦ *ED XH HiiRL TO CORREisPOHi) TO SET Of 
EXAMPLES,; 

.0 IF HOT IS t'iKST SCURRENT LINE: tCURREHt PROC: STOP 

20 IF HOT JrtP "i<£Cl'RSIVE" THING SEMTENCE IDHIbBLE NO: "B" l^ADD SENTENCE 

♦•JDRiBBLb NOJ "B" "RECURSIVE" 

END 



TO SUSeUPEL ;EHPTy,USER DEFINABLE 

10 OUTPUT "FALSE" 
END 



PROCEOUHE. SEE USERS QUidE FOR A^i'LlCA 
**TIONS, ; 



T O SeXaHINELIN E ;irHPTy,USER definable PROCEDURE DESCRIBED IN USgRS GUIDE 
END 



TO lUSEUPLIME JEMPTY, USeB DEFINABLE PROCEDURE DESRCIBED IN USERS GUIDE; 

0 bUXPUl "FALSU" 
END . 



T O SeNDLINE ii;MPXY,USBR DEFINABLE PROCEDURE DESCRIBED l)\ USERS qUIDB; 
END 
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S . Running 



The general procedure structure is again described in the 
User's Guide. The annotated listings here separate rather neatly 
into two parts: the graphics part, all subprocedures of $DISPLAY, 
and the non-graphics, text -ori ented commands. 

[1] 

TO SSTARXHUN ;INITIMIZES SXSTEM/ 
5 ERASE ML NAMES 
.0 rX?E "URIBBLE TllZi" 
20 DO SENT2i<CiS "GET" REUUESX 
?0 MAKE "DKIBULE HO" 0 
END 

[2] 

to tSA VEWORLD jSAVE CURRENT STATUS OF HOR« ON DRIBBIE FII^B; 
10 SAVE THE WORLD 
END 

TO SGETWOKLD ;REIRIEVE PRSVIOUSIY SAVED WORK STATUS; 
.0 ERASE ALL NAMES 
20 ERASE ALL ABBREVIATIONS 
30 PRIHI "IXPE: GET THE WORLD" 
ERASE ALL PROCEDURES 

END 
[4] 

TO $DOLIKL' ;D1SPLA1?S AND EXECUTES ONE DRIBBLE LINE; 
5""~HAKS "DPIliBLE NO" SUK JDRIBBLB NO} 1 
0 TJSX SUOODPARSEP :DRIBBLE NO: 

.1 IF NOT 5>SHUWLIIJEP IFTRUE JDISP :DiaBBLE NOJ 
i2 IF NOT SiaCEP STOP ELSE IFFALSE STOP 

5 MAKE "CUKREI:T PROCEDURE" FIRST THING SilHTENCE JDRIBBLE NO: "c" 
20 IF NOT CMPIYP THING SENTENCE :DRIBBLE NO: "C" MAKE SENTENCE SENTENCE 

♦*"GRAPH" JCURRENX PROCEDURBt FIRST 
**BUTi'IRSX THING SENTENCE :dRIBBLE N 
♦♦O: "C" BUTFIRST BUTFIRST THING SEN 
♦•TENCE :DRIBbLE NO: "C" 
35 DO THING SLNTEHCS 5 DRIBBLE NO: "N" 

tt0 IF NO* EITHER iSHOWLIKBP EHPTYP :CURRENT PKOCEDURB: JGOODLIST ;CURREN 

**T pkoceduke: and - b^'^ and « 50a 

END 
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10 $DOIO JNUi'i! itXSCUTES l)Ria8L2 LINKS tO LINe NUflDSRED JNUMW 

,0 JDOLIHE 

30 ir GREAiiRP SUM JDRIBBia HOj 1 :NUM: STOP 

140 IF fEOl" STOP 

50 SDOio iKun: 

EHD 
[61 

TO Spout? rii :oescr: ;executb uridble lines until joescbj is pound in a c 

♦ *OHHBNT -tAGI 

(0 SDOLIKE 

30 II EIXKEK 4DESCP tOESCB: :DRI3BIK NO: 4E0F STOP 

50 SDOUNtIL ;UEaCR: 

END 

[71 

TO SDOALL ;i.XECUlE ENTIRE DRIBBLE FILE, STARTING AT CURRENT POSITION; 

10 IDOLINE 

30 IF $EOF STOP 

U0 SDOALl 

END 

[8] 

TO iWHSRE ;UIVfiS STATUS OF USER; 

i0 PRINT SENTENCE "AT DRIBBLE LINE" tDRIBBLE NO: 
■5 PRINT "*/»*»#WHICH IS" 

20 PRINT TKIKii SENi rUCE : DRIBBLE HOl "H" 

30 PRINT SEUTBNCB SfiMTENCE "THE PROCEDURES" SUPTOLIHE jFINAL CONTENTS: " 

♦*HAVE BEEN DEFINED" 

END 
[9] 

TO SALLDESCR ?GlVES LIST OF ALL COMMENTS IN DRIBBLE FILE , IS VALUES OF 

♦*"(N) B"; 

10 PRINT *ALLUESCR1 1 
END 

[10] 

TO iALLDEScKi :n: ;used by $ALLDESCR; 

10 IF EKPTYP THING SENTENCE :N! "H" OUTPUT JEttPTYt 

20 OUTPUT JUHION { SENTENCES THli-'G SEHIENCS :NJ "H" ) ( SENTENCES JALLDE 

♦*SCRl SUH ;N| 1 ) 

END 
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[11] 

TO SSTEPPBOCSDORfi .'PHOCNAilEJ /'SIKPS THROUUH yUCCBSSlVs VEKSlONS OF OKKIN 

♦ *lTIOt; Of :i'KOCNAMEJ ACROSS ENTIHE 

♦ ♦DRIbBLJ-J KJ.LK; 

0 SSTEPTHI^OUuK ; EMPTY: THING SEtJTENCB "STRUC" :i'ROCNAHE! 
END 

[12] 

.TO tSTEPTHnOUUh :LIST0NE: :LISTTWO{ JHAIN SUBPROCKDURE OP STEPPROCBDURB; 

0 IF Cnl'XY? JLISTTWO; STOP 
20 MAKE "LISTOl.'E" SADDALlUr; SSKTENCC FIRST :LIS'iTW05 FIRST BUTFIRST :LIS 

♦ ♦TTWo: :LlSTOKi^; 
30 sprin'a'LIst :listo»e: first ilisttwo: ' 

35 ighorl h. quest 

U0 $&TEPTHKou(iH :listone: butfirst butfirst :listtho: 

E»D 
[131 

to $ADDALlNi. tLIWE PAIK: ScURRENT LIST} ;USeD Bi ISTEPPROCEDURE TQ PUT N 

■ ••EW UNB IUHE PAIRJ INTO {CURRENT 
♦♦LIST: WHICH IS PREVIOUS STAGE; 
IF SHP'iXP :cniU^E«T LIST! OUTPUT SLIhE PAIR! 
3 IF IS FIKST BUTFIRST !LINE PAIRJ "ERASE" OUTPUT tEHPTYl 

6 IF IS FlilST FIRSl BUTFIRST JLINE PAIR: OUTPUT $DELETE BUTflRST FIR 

♦ *ST BUTFXRbT JUNE PAIR? ICURREHT I 

♦ ♦1ST J 

•0 IF IS riKST iiUTFIPST rllNB PAIR! FIRST BUTFIKST ICURREf/T LIST! OUTPUT 

♦♦ SENTENCE JLIKE PAIR! flUTPlRST BU 
♦♦TFIKST :CURRENT LIST! 

20 IF GREAa..RP FIRST BUTFIRST !CURREIIT LIST; FIRST BUTFIRST ILINE PAIR! 

♦♦OUTPUT SENTENCE :LINE PAIR! ICURRE 

♦♦NT list: 

30 OUTPUT - JUTKNCB SEKTEUCF FIRST SCURREN'T LIST: FIRST BUTFIRST JcURRKNT 

♦♦ LIST: 4AUDALIKB :LINE PAIR: BUIFI 
**P.SI BUTFIKST JCURRENT LIST! 

END 



[14] 

TO IP RINVLIST ILIST! ! CURRENT LINE! ;PRI^iTS EACH STAGE OF tSTEPpRQCEDURB 
:0 IF EJIPTYP :LIST: STOP 

5 IF IS flK.ST :LIST: :CURRE!iT LINE! TYPE " = s>" 
20 PRINT THIHG SENTENCE FIRST :LIST: "N" 
30 SPRINYLIST BUTFIRST BUTFIRST ILIST! iCURRiiNT LINE! 
END 
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115) 

TO sn tipiiN -S :frok{ :descriptori ;finds all uccukreuces of :l)escriptor: 

INCOMMENT TAGS STARTING AT LINE 

**JFR0«:; 

0 IF KtlPTYP THlliO SENTENCE tFROMJ "N" STOP 
20 IF JDKSCP : Dr;Sci<IPTO£<: '.FROM: PRItiT SENTENCES t DESCRIPTOR J "iN" IFKOK 

«M THING ( SEHTENCE iFROHj "N 

• ♦ " ) 

30 JFINDLllii.S ( JFROMj + 1 ) tDSSCRIPTORS 
END 

TO tupioLiN .. :LiST: ;coMpUT£S That paRT of :final contents: which has be 

♦♦EN UEFlhEU AS OF !DRI3BLE NQ:; 

10 IF EMPTY? :HST: OUTPUT :EHPTY! 

20 IF GREATi-KP LAST BUTLaST :LIST! :DRIBDLE NOt OUTPUT SUPTOLINB BUTLAST 

♦♦ BUTLAST BUTLAST :LIST: 

30 IF IS LAST :LIST; "ERASE" OUTPUT S.REMOVE LASi' BUTLAST BUTLAST tLIST*. 

♦♦5UPT0LINE BUTLAST BUTLAST BUTLAST 

♦ ♦ J LIST : 

40 OUTPUT .%..HTENCE JUPTOLINB BUTLAST BUTLAST BUTLAST JLISTl LAST BUTLAST 

♦♦ BUTLAST 5L1ST5 

END 
[17] 

TO SGOODL I-'-i. IHAHS; :Xj l^i /PRINTS PROCEDURE DEFINITION IN SMALL LETTER 

♦♦S OK LOWER LEFT OF DISPLAY, USED T 
♦♦0 SHOW CURRENT STATUS OF PROCEDURE 
♦♦ def; 

3 WIPE 

6 MESSAGE "0 U" 

f0 $goodli:-ti :nahej LINES :nahej jxj jy: 

END 
[18] 

TO $GOODH-' ii :nahe: :ll: :X: :y: ;compuies position of first line for $ 

♦♦GOODLIST/ ■ 

,0 $G000Li--2 :nahe} :ll: :x; suh jyi sum 12 product 12 scouhtt ill: 

END ^'^ 
[19] 

■fo S GOopLi •v2 :name: :ll! :X5 :y: ;displa1(S title line for igoodList; 

0 HtSSAGE i;ztiTt:u(.:E IX: sun :Y: 12 butfirst tl-Xx sname: 0 
20 $goodli.v3 :.va«E! :ll: :X: :y: 
END 
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[20] 

T O SGOODLI .'3 :HAME: SLL; JXJ :Y: ;PHINTS LINES OF {NAHBSt FOR $GOODLIST 
.0 TEST EMfiYP :LI: 

20 IFTRUe 1!..SSAGE S!^NTSHCB :X: :Yt "DND" 
30 IFTRUS ~*0P 

a0 MSSSAGK SLHTBMCE :X: : : IBXT JNAHfiJ FIRST tHJ 

50 SGOODLI. ■•■•3 SN/.^'.S: SUTFIRST 5LL| JX: DIk'FEREHCE 12 

END 



GRAPHICS 
[21] 

TO SPISPLA^ :K00H JIUIN DISPLAY PROCEDUUt; 

!0 jmakeali-gkaphs 
20 $NEHRO(.-i- :koot: 
END 

[22] 

TO SKAKSALLGRaPUS ;G£HERATi;S A COHPLLTE StT OF CUHHICNT PRUCtiDURE CONNECT 

♦*IONS; 

5 SEnPTtGI^fvPHb liUPXOLIKE t FINAL CONTENTS: 
10 $KAKEGHAPH1 SUPXOLlHt :FINAL CONTLNTSt 
SMD 

[23] 

TO SKMPTyoHAPHS tLISI: ;EriPTIBS ALL VARlAbLES OJr' FORM "GRAPH (PNAME)" AN 

♦*D "GRAPHT (PNAHE)" AS PARI OF INIT 
**IALiZATION OF DISPLAY; 

10 IF E^5PTYP :list: stop 

5 HAKE yt'N'rSNCi: "GRAPH" FIRST :HS'i"! :EHPTX: 
20 HAKE SEKTENCt; "GHAPHT" FIRST tLISi: rEMPTY: 
33 ILHPTYU.UPHS BUTFIRST JLIST: 
END 

[24] 

TO IHAK EGRAPHI ■ {LIS ; . 

. IF sHpxyp : LIST: stop 

5 MAKE "Ll.i" SENTENCE !LIST: jEHPTYj 

20 JInKE SENiEHCE "GRAPH'r FIRST -LISTj $HAK£GSAPH FIRST ;LISTt LINES FIRS 

**T :fciST: 

30 SHAKEGHAPHI 8UTFIRST jLISTJ 
END 
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[25] 

TO $HAKEt.UtAiMi :N(\nR: :LII;E list: ;U3i;D IMA^KORaPH') to CRSATE "GRAPH I 

**PNAI1H)" VARXABIE; 
Z IP EMPTYP :HN2 list: output tEHPTXJ 
20 OUTPUT iUNION THIKG SEl^'EWCli ShWUHCZ "GRAPH" SNaHE! FJRST :LINE LIST 

i-MAK&GRAPH :N'AKE: BUTflKST '.LiKS 
LIST: 

END 

126] 

TO tNEW RO'.': jKooT: ;generates hew display sxAKTiNG AT :ROor:; 

2 PBNUP 
5 WIPE 

7 HAKE "DI PLAY LIST" :EMPtY! 
.0 JCTREC :HOOT; 
20 $HAKELE'..LS rRCOT: 
30 SDRAWLUV^L 1 tLEVKL 1: « 

SJOiNLEVj.LS :{-:arked list: 

END 
[27] 

TO tCTREr :K00T: ;$cTRRE through iCTREEe creates THAT LIST UF PROCEDURE 

♦♦connections actually joined to :r0 
**ot:; 

5 MAK3 "ilAKKEU LIST" SEKTENCS tROOT: : EMPTY; 

0 SCTRE31 SENTywci.S :ROOT: 
END 

[28] 

to ictree1 : r : 
>0 Tj-ST eKpjyp ;R! 

20 IFTRUE iJOP 

30 $CTREE2 FIRST :R: BUTFIRST :RJ 
END 

[29] 

TO ictree:^ :r: :s: 

"20 SCTREEi :R: ( SENTEHCES thing sentence "GRAPH" :R| ) iSl 
END 

[30] 

TO SCTREE3 :r: :suc; :s: 
;0 XSSI empjlyp .sue, 

20 IFTRUE iCTKEEl tSr 
30 IFTRUE -VOP 

U0 JCTREEU :r! FIRST jsuc: BUIFIRST jsuc: :s: 
END 
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131] 

TO JCTRBUU ;r: :fs'Jc; srsuc: :si 

(TTKSr -tCTHBKB H'SUC: 
20 IFFAL5E MA^E SKHTrKcE "GRaPHT" !R| SEHTENCK THING SENTfiNCB "GRAPHT" } 

25 IFTRUB $cxKEE3 :h! :rsuc; js: 

26 IFFALSE llAKH "HACKED LIST" SENTENCE {HARKED L1ST| JFSUCI 
30 IFFAIEE ICTHUiJa :K! :rSUC: sentence SFSUg: js; 

BHD 



[32] 

TO SCTREEb : X : 

.0 OUTPUT 4CTKRU6 :X: iHABKED IISTJ 
SNO 



[33] 

TO $CTREE 6 :x: :L: 

10 TESI ijFlP.YP !L! 

20 IFTRUE OUTPUT "FALSE" 

30 T/sr :x: fiPo-r ;l: 

t|0 IFTRU2 OUTPUT "XRUR" 

50 OUTPUT iCTKEE6 !X: TjUTFIRST L J 

END 

,134] 

52_J.»'ll<J.kKlriiJ?. i«0OTPR0C! /CREATES THE lEVEL LISTS FOR DISPLAY, EACH LEV 

**EL BEING A LIST OF PNAMES WITH COO 
•♦RDINATES JROOT; IS LEVEL 1; 

10 S'/.SROLEViL 1 

'5 HAKE "LEVEL 1" SENTENCE SENTENCE . 2 JROOTPHOC: ^2 
20 JHAKELEV'iL 2 0 THIHG SENTENCE "GRAPHT" : ROOTPROC J 
END 



(35] 

TO sz EROLEv^L :n! ;ehptifs all variables of form »'lbvel 

,0 IF EMFTYP THING SENTENCE "LEVEL" i h\ t STOP 
20 HAKE SEIJTENCE "LfVEL" JNt : EMPTY! 
30 $EBROLEV-L ( :N:+1 ) 
END 
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{36] 

TO tHA KELEV-L UEVSL MUM? JPIYOTJ {LIST; jCREATtS LEVEL LISTS FOR SflAKEL 

t*EVELSj 

.0 IF EMPTY? ILXSTJ STOP 

20 MAKE "LIST" SEtii'BNCE ( SNEARESTHOLE B THIKU SENTENCE "LEVEL" :LEVeL N 

♦♦um: rpivoij ) :list; 

30 HjvKE SENiENCE "LEVEL" ILEVEL HUH: SEWVENCE SENTENCE SENTENCE THING SB 

♦•NTENCB "LEVEL" ;LBVBL HUHi { FIRST 

•* :ljst: ) « n2 jnote first butfirs 

**T SLIST: ( FIRST :LISTJ ) + H2 
U0 $HAKEr.B.';a ( SLEVEL NUtt: + 1 ) FIRST JLIST: THING SENTENCE "ORaPHT" FIR 

•♦ST bUTFiRST :list: 
50 shakelev-l ubvbl num: :pivot; butfirst butfirst jlistj 

END 



[37] 

to snearesthols :X! :list: :pivot} ;used at smakelevel to find gaps betw 

♦♦EBN boxes already DEFINED, ON :LIS 

♦ *t: , PIVOT IS center; 
i0 IF EHPTYP :hst: output { :pivoi':.20 ) 

20 Tnsr HI"! iiNsiDSP { :pivoTJ + ;x}-i;2 ) ( :piv0ii + :x:+i^2 ) uisit 
30 iFTRUs OUTPUT :Pivor:+:x: 

uz Ti;sr NOT JiNsiDEP ( I PI V OT u 5 X } « 4 2 ) ( J PI VOX u : X J +a2 ) :list^ 

50 IFTRUE OUTPUT spivot:-:x: 

60 OUTPUT iwiiAHESTHOLB :x: + 7 :list> jpivot: 

EKD 



[38] 

TO t INSIDEP :A: :Bt JLISTJ /used by SNEAKESTHOLE to check OVERLAP; 

.0 iFThptyp ;list: output "false" 

20 if eithek .s.uEi;VifEHp iKi :b: first :list: SBB'i'WEEHP :Ai jBi first butf 

**irst butfirst :listi output "true" 

30 OUTPUT SiiibioEp ! a: :bj butfirst butfirst butfirst :listj 

END > 



[39] 

TO tB srwBE HP :a: :bj stest: jis :TESr: between :a: and ;bj?; 

5 IF EITHER la jA. .TEST. IS jB; jTEST. OU'ipUT "TRy^;" 

;0 OUTPUT EITHER BOTH GRBATERP JAJ :TEST: GREATbRP JTEST: JBt BOTH GREAT 

♦♦ERP :b: jTESTj GRBATEKP :test: :a: 

END 



ERIC 



2-27 



Report No, 2625 



Bolt Beranok and Newman Inc. 



[40] 

TO SDRAWLKV-L :N: :LIST! IV^JRTJ .DODS POSITIONAL COMPUTATION AND ACTUAL 

•♦drawing oi boxes on each lsvel of 
♦♦display; 

0 IF FMPTYP THING S£Kr?N'CK "LliVKL" JNJ STOP 
20 TKSI BttP.:i'P :list: 

30 1FTRUI3 iUKAWLBVeL SNSH THING SENTKKCE "LEVEL" ( :N! + 1 ) JVERTj ~ ( $ 

•♦HAXHEIGHT THING SENTENCE "LEVEL" : 

♦♦h: ) - ma 

i|0 IFTRU3 .'lOP 

50 SBOXIN FIRST BUTVIRST tLIST: ( FIJ\ST tLIST". ) + 12 tVERT'. 

55 HAKE "DISPLAY LIST" SENTENCRS :DISPLAY LIST: ( FIRST BUTFIRST UIST: 

**) :n: ( FIRST :list: ) + ^2 :vert: 
♦* ( FIRST ;listj } + H2 :vbrt: - ih 

♦♦bight first BUTFIRST JLJSTl 
60 SDRAWLtV^L :N! BUTFIRST BUTFIRST BUTFIRST '.LiSTS :VERTl 
END 

[411 „ .„..^,... 

TO shaxheighi slist: komputes KAXinuii height of the boxes given by :lis 

♦ * T { ; " 

5 IP EMPTYp :list: output 3 

10 output JIAXIMUH ( SHEIGHT first BUTFIRST rLIST} ) SHAXHBIGHT BUTFIRST 

♦ ♦DUTilRST BUTFIRST lltl^TH 

END 
[42] 

TO DIEIGH T :STRIIIG: ; COMPUTES HEIGHT OF I'h'XT GIVEN 8 CHARACTER WIDTH; 
.0 OUTPUT 2 * { ( { COUNT tSTRiNG: ) * 7 ) / 8 ) a 5 
END 

[43] 

TO $BOXIN tiNAME! tUPPERLHX: tUPPERLHY: ;bUXES IN !NaME: GIVEN COORDS OF 

♦♦UPPER LEFT HAND CORNER; 

10 HOVE SElliENCE jUppERLKXr^S JUPPERLHY:+J 
20 PKNDOWN 

30 HOVE SEKiENCE 1 UPPBRLHX : +63 {UPPERLHY:+3 

tJ0 HOVE SE.TiENCE : UpPERLHX : +63 SUPPEKLHY! - ( SHEIGHT :NAME: ) ^ 9 

50 HOVE senvsnce {UrPERLHX:-3 :upperlhy: ^ ( SHEIGHT jname: ) - 9 

60 HOVE SEK.'UNCE lUpPERLHX:-3 :UPPERLHY:+i 

70 SiiNCLOSEMas :name: ;Uppf;RLHX j+« ■:uppehlhy:-9 

80 P^WUP 
END 
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[44] 



TO 
" 0 

3 

6 
23 
30 
END 



$;.NCtosE«sa :n.uibj :X! !i: ;puts mkssaue in aox; 

cT.EATij'RP 8 COUNT : NAME J 

scijNTKH :kaiie; :x: 



TLSl 
IFIRUB 

iFTBUi: : iOP 



4PULL 



8 

JXl 



NAME! 



[451 

20 SCStmP. tNAHK! :X: :Y: ;USED itNCLOSEMES TO CKNTER TEXT; 

.fflF'EHpTYP :^iA«E: stop 

20 MESSAGE SENTENCE SUM :X: { 7 * ( 8 - COUNT SNAMEt ) ) / 2 JNAME: 
END 



[46] 

TO $JOINLEV..LS :LIST: ;J01HS DISPLAYED EOXES, IXBHATES IHHOyOH REVELS; 
.0 IF EMPTYP JLIST: STOP 

20 SJOINLIN.S FIRST :LISX: THING SENTENCE "GRAPH" FIRST ttlSTl 
30 SJOIHLEV.LS BUl'KIHST {LIST: • 
END 



[47] 

TO $joiNLi:w.s :nah: :list: ;DaAWS connections detweion boxes, iterates th 

♦♦ROUGH eleubnts; 

t0 IF EMPXYP !MST: STOP 

20 IJOIN :mam: first uist: 

30 ijoinlin.s :NAn: dutfirst :list; 

END 



[48] . 

TO SJOiN :a: :3: ;co:fKECTS box ;a! and box ;b: with arc or arrow; 
i if' is :A: :b: stop 

3 MAKE "A" *CU0«D :aJ {DISPLAY LISTJ 
6 MAKE "B" i.COOHD :BJ '.DI&PLAY LIST: 

0 T?sr IS FIRST :a: first :b: 

20 IFTEUE iARC BUTFISST :A: BUTFIRST :BJ 
30 IFTRUn -iOP 

110 SJOiNLiNi- :a: :bj 
end 
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(49) 

TO SJOiNiiN; :a; jb; ; joins box :a{ and box :a: with arrow; 
0 T::sr lk. up nasi m first :b: 

20 IFTRUB SURAMLINE BUTFlRST BUTFIRST DUTflRST :AI SENTENCE FIRST BUTFIR 

**ST SB: FIRST BUTFIRST BUTFIRST :B! 

30 IFTRUS :'^0V 

^0 SDRAWLlNw SiSNIBNCE FIRST BUTFIRST :A: FIRST BUTFIRST BUTFIRST thl BUT 

**FIfiST BUTFIRST BUTFIRST JBl 

END 
[50] 

TO SERASSALL ;PSEUDO EUASK AIL TO PRESBRViJ SYSTKH; 
i0 SERASEALL i SENIUNCES SUPTOLINE t FINAL CONTjiNxSl 
END 

(51] 

TO^ tKRA SEALLI tPRS: ;USED BY $ERASEALL; 
5 IF EHPTJtP :PRS{ STOP 
i0 DO SENTENCJi "ERASE" FIRST JPRSJ 
20 SERASEALLi BUTFIRST :PRS: 
END 



UTILITY PROCEDURHS 

XQlJyesp. :ans: ;; 
.0 IF IS :a«s: "Y" output "true" 
20 IF IS :ans: "yes" output "true" 

30 output "FALSE" 
END 

TO ISKIP :N{ 

5 IF ZEROP :n: stop 

0 PUHJT "" 
20 SSKIP DIFFERESCE :U: 1 
END 

TO $DISP JHO: ;PRIHTS DRIBBLE LIKE SKOs; 

:0 PRINT SENTENCES "»♦♦" lHOt "♦*♦" THING SENTENCE INO: "N" 
END 

?o Sadd . iplace: :hEs: ;concatenates value of :placej and jmess; 

0 MAKE .'PLACE: SENTENCE THI.VG :PLACE: :MES: 
END 



r^^9^ \ 2-30 



Report No. 2625 



Bolt Boranek and Newman Inc. 



TO tcouNTT :el: ;couijt with KLUoof FIX or BUG in COUNT y; 

0 IF EMPXTfP :EL: 0UI?UT ELSE OUTPUT COUNT :ELI 
END 



TO tpuLL :n: :list: ;first of ilist;; 

^0 IF ZBECP :N: OUTPUT :fiipty! 

20 OUTPUT WORD FIRST tLIST: IPULL IN}-1 BUTFIRST JLJST: 
END 

TO tPELETi:. :n: .'list: ;butfikst of :list:; 

;0 IF = output :li3T: 

20 output JDtL^vr^, :n:-i yuTFiRsv :list: 

END 



TO $HP isi: :L.Ci>i: ; ii,.,.'.yK^p; 

5 MAKE "II X" StNTL'KCES :Lj.,sTi 

.0 IF EHPIYP :LIST: output "FA'.SK" 

20 IF IS :el: PiasT :list: ouTi'jT "true" 

30 output SJ-JP ;eL: BUTFIRST .'LISTJ 
END 

To^ijONUs, :x: 

:0 IF is fif.st :a: "n" output butfirst :xj 
20 output word :x; 

END 



to scoord :P^iA^!L; riisr: ;find coordinates of sfNAMrs: ok list of quintu 

♦*PLKS; 

20 IF IS »i.'0Tt; :PiiA:-iE: Fif<ST :list: output Wb butfirst :list: 

30 OUTPUT iCOURD :PN'AM2: UUTFIRST BUTFIRST bUiFiRST BUTFIKST BUlFlRST BU 

♦♦TFIKST :LiSTi 

END 



TO $f5 :tr! 

.0 OUTPUT , NTliN'C'J SENTEtiCJ SENTfcKCE SCUTL'WCC FiRST SN: FIRST BUTFIKST : 

i-'LRSl BUTFIRST BUTFIKST :N: FIR 

• *ST UUiF.LRST BUTFIRST liUTFIRSI :N: 

♦ *Fir;ST BUTFIRST BUTFIRST BUTFIRST B 

♦♦UTFiasT ;nj 

END 
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TO $aRc :a: :b: ;DnAWs hhc from point m to horizontal point 

*T0 $SEHlCl«CLi; SENrENCE FIRST :aJ first HUTFlHSi' lAl QUOTIENT ( { FIRST 

♦♦IB: ) - FIRST JA: ) 2 

20 PiiHDOWK 
30 L2FT It) 
a0 BACK lb 
50 FRONT 15 
60 RIGHT 2.. 
70 BACK 1!> 
80 PI.NUP 
EHO 

TO ssEHi ciacL E :PT: : Radius: 
't0 MOVK jpr: 

,5 SKTHEAUING 95) 
20 PDNDOMN 

30 SRBPEAT 13 SEMTENCE "FRONT" 1B ♦ $ABS SRADIUSJ/38 SENTENCE "RIGHT" ( 

•*JSGN JBADIUSJ ) ♦ lb 

<*0 PiJNUP 
END 

TO SRSPEA T :n: :a: jb: 

~0 IF ZEROP :N! STOP 

20 DO :a: 
30 DO :b: 

a0 JREPEAT ( :n!b1 ) ini :b! 

END 

TO $ABS :x: ■ ss 

i0 r£ST IS FIRST JX: 
20 IFTRUE OUTPUT hUTFIRST :X: 

30 OUTPUT :x: 

END 



T_0_iS G H ih: 

;0 IF fs FlitST :a; output - 1 

20 OUTPUT 

END 

TO lU NYON :i.istond: :listtwo: 

3 make "LL-'roNi;" sentences :listoije: 

6 MAKE "Ll-'iTWO" SEHTBMCSS :HSTTWO: 

0 IF EMPTYP :LIST0NE: OUTPUT ;listtmo: 
20 IF IMP FIRST slistone: :listtwo: output iUNioN BUTFIRST :listone; ;li 

♦ *STTWO ; 

30 OUTPUT suwiON BUTFIRST :listo}je: SENTENCE FiKST uistone: :hsttho; 

END 
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J.^_,3^DRAWtiM :a! :b! ;dkaws akrow from POiNT I hi TO POINT :ut 
0 HOVE :a: 

20 P.t;NDOWli 
3{J MOVE SB: 

^0 l:-;fi' n- 

bn BACK 15 

60 FRONT 15 
70 RIGHT 2; 
80 BACK 1b 
90 PUNUP 
END 



X2-_*JieMVE -.list: ; strips front of uist: up to anp including :"el' 

.0 HAKE "LIST" SSNTSHCES SLISTj v,i.upi«Q .el, 

20 IF IS :el: FIRST :list: output butfirst :listi 
30 OUTPUT SHRfiovE :ei.5 BUTFIRST :list: 

END 



TO Sdelete :ll: :listj /pairwise delete; 

20 IF IS JEL: first BUTFIRST ILIST: OUTPUT BUTFiRST BUTFIKST :LlST: 
30 OUTPUT ..NXENCES FHiST :LIST: FIRST BUTFIRST tLIST: SDELSTB JEL: BUTE 

**IRST BUTFiRST {LIST; 

END 



52_lD.sscii lULScHj :lij;e no; ;is descriptor .-descr; in cohmbm or :ljne n 

„ , ♦♦O:? (IE IN "(LINE NO) B"); 

,0 OUTPUT tnp ;descr: thing sentence :lii;e no: "B" 

END 



TO SGQODPA.^SEP :NUn! ;HAS DRIBBLE LINK ;NUM; PARStD CORREfTlY ?; 

0 OUTPUT EfiFTYP TKXNG SENTENCE :NU«{ "D" 
END 



TO St'OF ;AT end of DRIBBLE FILE?; 

0 TEST EMPiyP THING SENTENCE !DRIBBLE NOJ "N" 
20 IFTRUE PKTNT " ♦ * • • EN D - OF r FILE ♦ • • ♦ " 
30 IFTRUE OUTPUT "TRUE" 
U0 OUTPUT "FALSE" 
END 
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USER-UHFINABLB PROCBUURHS 



TO SLOOKAHEA D ;DE'FIIJBt) IK EXaHPLB TO PERMIT LUOKAHEAD IN DRJLBbLE FILE AN 

**D HARKING OF IGNOBAULh; LINiiS; 

0 SL00KAHEAD1 1 
END 

TO $100K;\ HEAD1 : N J ;USED BY JLOOKAHBAD,; 

"*0 "TY"PE"""f.0«5 / . , 

20 TEST SXKSP REQUEST 

30 IFFALSE PRINT SENTENCES "*»RSSUME AT***" :DRlBblE NO: 
U0 IFFALSE iSKIP 2 

50 IFFALSE DO THIKG SBliTENCE :DRIBBLE HQ! "H" 
60 IFFALSE STOP 
70 TYPE "Ltltl" 

80 $DISP sun '.DWIBBLB KOj "H" 
90 TYPE "XGNOKE?. , .•• 

.00 IF Si'E^P REQUEST SADD SENTENCE SUM tDRIBBLE NO J "D" "JGKORE" 

. 10 SLOOKAHuADi Sl'K :N{ 1 
END 



TO $»oi E :pkoc: ; empty, user definable proceduke, he?,b filleu in as in ex 

*»AKPLE; 

"0 IF IRECUKSEP :PR0C! OUTPUT V.'QRD WORD :PKOC: "**" 

20 OUTPUT :pruc: 

END 

TO $RBcuasi-p :p3oc: ;used defined in example to check recursiveness; 

.0 OUTPUi' SPROC; JRECURSIVE LISTJ 

END 



TO ISH0WL1W.-P 
~0~6UTPU1 "FALSE" 
END 



TP SNICEF ;:MPTY, USES DEFINABLE PROCEDURE, HERE FILLED IN AS IN EXAMPLE 
,0 IF SHP "RECURSIVS" THING SENTENCE :DI>IBBLE NOJ "b" HAKB "RECURSIVE LI 

**st" junxoh ;curreht procedure: :RE 
♦*CURSIVE list: 

2Z output "ifiUE" 
END 
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6. The Display l«acility 

To facilitate the display of program structure diagrams, a 
display system was implemented on the IMLAC PDS-1 using the IMLAC 
executive program. The apparently rather idiosyncratic nomencla- 
ture, SETTURTLH for example, arises from the fact that we chose 
our primitives to be a superset of the commands controlling our 
robot "turtle'\ (These are described in the Appendix.) 

The display screen is considered to be 1024 by 1024 units, 
with the origin in the center of the screen. The "turtle" itself 
is in the shape of an isosceles triangle whose base is 8 and 
altitude is 16. The sharp end of the triangle points toward the 
heading of the turtle. Headings are in degrees, from the 
horizontal* The position of the turtle is kept to more accuracy 
interQflly than is recorded on the screen. This procedure avoids 
undesirable round-off errors. 

The turtle also has a "pen" which is initially "up". If the 
pen is down, any command that changes the position of the turtle 
(except for HOME and the SET commands) will draw a line from the 
initial position to the final position. 

The following commands change position: 

FRONT, BACK, MOVE, SETXY, SETX, SETY, HOME, SETTURTLB. 

The following commands change heading: 
RIGHT, LEFT, SETHEADING, SETTURTLE. 

The following function gives information about the turtle 
status : 

HERE. 
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^ • 1 Ooscription of Com ma nds and Functions 

FRONT takes one argument: a numerical string. It moves the turtle 
forward by the number of units indicated, in the direction 
the "turtle'' is pointed. If the ''pen" is "down", it draws a 
line between the initial and final positions. 

BACK :X: is the equivalent of FRONT (-:X:). 

LEFT takes one argument: a numerical string. It changes the 
heading angle of the turtle by adding its argument to the 
current heading and reducing modulo 360. The orientation of 
the "turtle" (i.e., the vertex of the triangle) is changed 
tc the new heading. 

RIGHT :X: is equivalent to LOFT (":X:). 

SETHEApiNG takes one argument: a numerical string. It* changes 
the heading of the turtle (as in LEFT) to the argument 
reduced modulo 360, and changes the orientation appropriately. 

SBTX takes one argument: a numerical string. It changes the 

X-coordinate of the turtle to the argument. The orientation 
of the turtle is not changed, and no vector is drawn. 

SETY behaves like SETX, except that the Y-coordinate is involved. 

SETXY takes one argument: a sentence having two numerical words. 
It changes the X- and Y- coordinates respectively to the 
first and second words, as in SETX. 
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SETTURTLU takes one argument: a sentence having two three-digit 
words. It changes the (X,Y) coordinates of the turtle as 
in SHTXY, using the first two words, and the heading as in 
SETHEADING using the third word. 

HOME is the same as SETTURTLE 0 0". 

WIPE erases all lines drawn on the display and all messages (see 
below) but leaves the turtle in the same position and 
orientation as it was before the command was executed. 

PENUP "raises the pen'\ It causes no command to draw a vector 
until a PENDOWN command is executed. 

PENDOWN "lowers the pen". It causes the commands FRONT, BACK, 

and MOVE to draw vectors frojn the initial to final positions 
of the turtle, until a PENUP command is executed. 

MOVE takes one argument in identical format and meaning as SETXY. 
It causes the same action as SETXY. In addition, it changes 
the orientation of the turtle to point in the direction of 
motion, and draws a line if the "pen is down". 

MESSAGE takes two inputs: the first is a sentence as in SETXY, 
indicating a position; the second is a sentence or word 
which is interpreted as a string. The characters in the 
second argument are displayed horizontally. 

HERE has no arguments. It is a function which has a value equal 
to a sentence of three words. The first two words represent 
the (X, Y) coordinates of the turtle, and the third word 
represents the heading of the turtle. In other words, the 
output of HERE is in the same format as the input to SETTURTLE. 
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6 . 2 Specific I mp.l enient a t ion o n the IMLA C 

The IffLAC contains a central processor (similar to a DHC PDP-9) 
and a display processor (with long vector drawing) as well as 8K 
(of 16-bit words) of memory. The display processor periodically 
(60 times per second) refreshes the display by executing a sequence 
of vector drawing commands. 

The TENEX-IMLAC implementation operates by directly modify- 
ing the display program inside the IMLAC. 

For other types of display processors, such as storage tubes, 
or the PLATO terminal or refresh scopes without a central 
processor, a different strategy must be used. For the first two 
alternatives, display lists need not be kept. As vectors are 
generated, the properly formatted display ins tru<||t ions are merely 
transmitted t .» the scope. For a storage tube without selective 
erase, such as a COMPUTHK, a change should probably be made to 
the ^'turtle indicator'^ i.e., the small triangle indicating 
position and bearing of the turtle. If there is a turtle indica- 
tor, there would be "tracks" left on the display, that is, 
images of old turtle indicators. The procedure in this case 
would be either to eliminate the turtle indication altogether or 
to use a programable cursor to indicate position only. If the 
storage tube has selective erase, then a turtle indicator can 
still be drawn, but must be "remembered" in order to erase 
previous indications. 

A refresh tube without memory can be handled in much the 
same way as the IMLAC, except that the display lists should be 
kept inside the main computer. 
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" There are some display processors, such as other models of 
the IMLAC, which do not have "long vector" drawing hardware. 
More precisely, this means that vectors of arbitrary length 
cannot be drawn with one display processor instruction. When 
using a processor lacking this capability, additional programs 
must be written. These programs will convert a vector specifica- 
tion into a series of instructions for the display processors. 
Usually the basic display instruction will be able to draw "short 
vectors" - vectors whose length is less than 3 or 4 units, where 
the entire screen is 1024 units wide, 

The IMLAC driving programs used in this project were written 
by Victor S. Miller in MACRO, the assembly language of the 
PUP-10. The IMLAC programs themselves were also written on the 
PDP-10 using an in-house IMLAC assembler. 
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Part 3. 
Analysis Package 
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1 . Introduction to Analysis Package 

The analysis facilities described in the user^s guide are 
very general and are not customized. We describe hero the con- 
struction of extended facilities for use in various aspects of 
the analysis working with student programs directly, augmenting 
the system's parsing capabilities, and extending the system's run- 
time capabilities, These facilities constitute our analysis 
package. 

At the outset a teacher or researcher will find the capabil- 
ities of the dribble file analysis system very substantial. The 
initial command structure and associated semantics will probably 
seem reasonable and adequate. Continuing use of the system, 
particularly when the use is intense, will likely lead to some 
dissatisfaction, both with the command structure and its inter- 
pretation. The serious user will want to personalize and extend 
the specific information that the parser generates. He will want 
to ^incorporate his own ideas on editing, error correction, and 
execution facilities. It is precisely for this reason that the 
system was written in LOGO, a relatively simple and accessible, 
yet powerful and easily extensible language. In this section we 
will discuss possible user extensions of various kinds. 

2. Usei" Defini tio n of Analysis Pro cedures 

We first discuss those ''advanced'* features of LOGO which, 
although originally added for work with sophisticated students, 
are very valuable in extending the dribblo file system. There is 
no distinction in LOGO as there is in some programming languages 
between system and nonsystem commands. Thus, as a trivial example, 
we can erase a sot of LOGO procedures in two different ways. We 
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can use the LOGO HRASH command directly 01* we can write our own 
procedure for erasing a list of procedures given as input: 



TO ERAStMANY : LIST: 

10 IP I-MPTYP :L1ST: THEN STOP 

20 DO SENTENCE "ERASE" FIRST OF :LIST: 

30 ERASOMANY BUTFIRST OF : LIST: 

END 



Also, instead of defining a new LOGO procedure in the usual way, 
we can define a procedure whicj^ creates a new procedure: 



TO CREATE 

10 DO "TO FOO" 

20 DO "10 PRINT RANDOM" 

30 DO "END" 

END 



CREATE defines the procedure FOO which simply has the effect 
of printing a random digit. The process is carried out as follows. 



■(-CREATE 
FOO DEFINED 
"(-LIST FOO 

TO FOO 

10 PRINT RANDOM ^ 
END 

-t-FOO 
7 

-t-FOO 
2 



The single-input DO command evaluates its input, i.e., 
executes its input as a LOGO instruction line. The use of DO is, 
of course, essential in examples like the above where we modify 
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existing LOGO procedures or define new ones. In order to effec- 
tively modify procedures, however, we also need to have program 
access to their current state. The LOGO built-in operations 
LINHS and TEXT make this possible. LIMBS takes one input, which 
must be the name of a procedure in the user's workspace, and out- 
puts a sentence composed of the line numbers of that procedure. 
Using LINES with the procedure CREATE, defined above, for example, 
we get: 

-f-PRlNT LINES '»CREATE*» 
i 0 10 20 30 



(Note the line number 0 which represents the title line.) Given 
a procedure name and a line number, one can get the entire content 
of the line (including the line number) using the two-input LOGO 
operation TEXT. Thus: 

^PRINT TEXT ''CREATE'' 10 
10 DO "TO FOO'^ 
^PRINT TEXT "CREATE" 0 
TO CREATE 

As we will see in the following pages, DO, LINES, and TEXT, 
combined with the other LOGO primitives, give a user considerable 
power for extension of the dribble file analysis system. We 
begin with some simple procedures to augment the basic parsing 
capabilities built into the analysis system. 



r 
P. 
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^ • Use r Augmentation of the Parsing Procedures 



The built-in parsing procedures interpret the student's LOGO 
program in very much the way that LOGO itself does. From the 
standpoint of the analyst, however, this process can be improved 
in various ways so as to run more smoothly or to give him addi- 
tional information for later phases of the analysis* Examples of 
each kind are developed next. 

3, 1 Putting parenthesis-checking into the parsing procedure 

In the current implementation of LOGO, balancing of paren- 
theses is not checked as the expression is interpreted. The 
execution of an unbalanced expression generates an error c»)n5ment 
and halts the system. Such halts can be annoying when the user 
of the analysis system is not interested at the level of detail 
of local syntax errors. A suitable comment entered in the dribble 
file during the parsing phase can be used to inhibit execution of 
such lines as the user sweeps through the dribble file subsequent-- 
ly. Consistent with our general conventions of usage, such a 
comment is entered into the global variable "(dribble file line 
no.) B". This is done using the existing one-input procedure 
$ADDSYSC :MESSAGE:, together with filling in the empty procedures 
designed to make such additions easy. Thus, we use the global 
"PAR COUNT" to keep track of depth (its name is a sentence as we 
require by convention for all dribble file analy si s globals) . 
"CURRENT LINE" contains what is left of the line being parsed. 
We initialize - 

TO $EXAMINELINE 

10 MAKE "PAR COUNT" 0 

END 
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We look at each element to see if it is a right or left 
parenthesis and, if so, take suitable action: 



TO $BXAMINBEL 

10 TEST IS PIRST : CURRENT LINE: 
20 IFTRUE MAKE "PAR COUNT" SUM OF 

:PAR COUNT: AND 1 
30 IFTRUE STOP 

40 TEST IS FIRST : CURRENT LINE: 

50 IFTRUE MAKE "PAR COUNT" DIFF OF : PAR COUNT: AND 1 
60 IF GREATERP 0* : PAR COUNT: 

$ADDSYSC "MATCIIING-PARENS" 

END 

And, finally, to terminate the line being parsed wc fill in 
$ENDLINE. 

TO $ENDLINE 

10 IF KOT ZEROP : PAR COUNT: 
$ADDSySC WORDS 

"MISSING-" :PAR COUNT: "-PARENS" 

END 



3.2 Checking for operation v s. command 



It is very useful for later analysis, and in fact very easy 
during the parsing phase, to generate the specification of 
whether a procedure is an operation or a command whether it 
merely stops or hands back information to the procedure which 
called it. We can look for a STOP or an OUTPUT in he procedure 
definition. If neither exists, the procedure terminates on the 
END command and is a command. This, of course, is not a perfect 
algorithm, even within the limits imposed by the halting problem. 
The simplest form of (syntactic) ambiguity is between OUTPUTting 
and falling through to the END. Also, considetuble benefit could 
be derived by tracing out GOTOLINE statements (except when their 
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arguments are generated at runtime). But, the simplest approach 
yields generally sati5factory results for the parsing phaso of 
analysis. More complex analyses are best loft for the running 
phase of dribble file analysis. So, given the type of information 
we want to find, where should we put it once we find it? Remember- 
ing that the form of a procedure is time-dependent, it seems 
necessary to maintain a running record of the state of the 

procedure. We define a new data type ''(p name) FORM" to contain 

i 

such information for each procedure defined in the dribble file. 
At the end of parsing, it might look like 

"FOO FORM" IS "137 1^5 OUTPUT 138 20 STOP 139 10 ERASE" 



The value of "FOO FORM" is a set of triples - the dribble 
file line number, procedure line number, and the relevant command 
contained. This will enable the use of a new procedure in the 
running phase to determine the state of any procedure at any 
point in the dribble file. It is easy to incorporate in the 
parser procedures which generate these names and values. We need 
simply define versions of $EXAMINEEL, $EXAMINELINE , and $BNDLINE 
for this purpose as follows - 



TO $EXAMINEEL 

10 IF EMPTYP : CURRENT PROC: STOP 
20 IF EMPTYP :LINE NO: STOP 

30 IF NOT EITHER IS FIRST : CURRENT LINEi "OUTPUT" 

IS FIRST :CURRENT LINE: "STOP" 

STOP 

40 $ADD "CURRENT FORM" SENTENCES 
:DRIBBLE NO: 
: LINE NO: 

FIRST :CURRENT LINE: 

END 



w'nere we are using : LINE NO: to keep the line number (if any) 
of the procedure line currently being defined in the dribble file. 
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To do this wo fill in the definition of $EXAMINELINE . 



TO $EXAMINELINE 

10 IF NUMBERP FIRST tCURRENT LINE: 

MAKE "LINE NO" FIRST : CURRENT LINE: 

END 

The reason, of course, that we have been maintaining the 
additions to the form statement of FOO separate in -"CURRENT FORM" 
is that wc must wait to see if the line parses correctly. If it 
does not, this new information is simply discarded. We note 
that $GOODPARSEP is available to do this. 

TO lENDLINB 

10 IF BOTH $GOODPARSEP : DRIBBLE NO: 
NOT EMPTYP : CURRENT PROC: 
$ADD SENTENCE :CURRENT PROC: 
"FORM" 

: CURRENT FORM: 
20 MAKE "CURRENT FORM" : EMPTY: 
END 

As a further extension of this special chocking facility, 
wo must include the effects of student erase commands contained 
in the dribble file. If a line or the whole procedure are erased, 
this occurrence must be indicated by incorporating a comment so 
signifying. It is easy to incorporate a chock for such 
erasures which includes appropriate additions to the variables 
"FOO FORM". This can be done either from scratch or by using 
results from $PARSEERASE, the top-level parsing procedure 
concerned explicitly with the ERASE command. These procedures 
are as straightforward as the ones just developed for checking 
for operation vs. command. Their implementation is left to 
the reader. 
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4 . Aids for Execution and Debugging of Studc n t Procedures 



In addition to the parsing phase proceduresj the analysis 
package includes aids for running and testing the student^ s 
procedures. These are described in the following sections. 

4 ♦ I Adding Breakpoi nts 

Insertion of breakpoints into defective, or possibly defec- 
tive, procedures is a time honored debugging device. The BRKAK- 
GO-CANCEL commands in LOGO give a limited amount of breakpoint 
control, but, as we will see, they can easily be extended by 
user-defined procedures to provide fairly general and powerful 
debugging aids. These insertions can be done "by hand" via 
insertion of suitable code, or automatically via system calls. 
The former is good for occasional use; if the dribble file user 
inserts breakpoints frequently, he may want to write assisting 
procedures. In particular, cataloging of breakpoints is useful 
as well as checks to make sure the breakpoint insertion is not 
destroying anything, A simple way to put in a breakpoint is by 
just putting in the procedure - $BP$ (pname) $ (line no).* 
The list of extant breakpoints can be kept in "BRCAK POINTS", 
say, as the pairs (pname) (line no). So, we can write the simple 
elicitation dialogue 

TO $INSBREAK 

10 $1NSBREAK1 $ACCEPTLINE $ACCEPTPNAME 
END 

TO $ACCEPTPNAME (finds out pname) 

10 TYPE "INTO PNAME, , *" 

20 OUTPUT $ACCnPTPNAMEl REQUEST 

END 



*The name $BP$ (pname) $ (line no) is chosen to ensure uniqueness. 
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TO $ACC0PTPNAMB1 :PNAMIi: (validates :PNAMB:) 

10 IF BMPTYP tPNAMH: EXIT "EMPTYPNAMB, 

LEAVING $INSBUBAK" 
20 IF $MP :PNAMR: : CONTENTS; OUTPUT :PNAME: 
30 PRINT "NO SUCJl PROCEDURE" 
40 OUTPUT $ACCEPTPNAME' REQU-EST 
END 



TO $ACCEPTLINU :PNAMO: (elicits line number) 

10 TYPP. "LINE NO. . . " 

20 OUTPUT SENTENCE rPNAME: AND $ACCEPTLINE1 REQUEST 
END 

TO $ACCEPTLINE1 :LINE NO: (checks on line number) 

10 IF EMPTYP :LINE NO: EXIT "EMPTY LINE NO, LEAVING 

$INSBREAK" 
20 TEST LESSP : LINO NO: 1 

30 IFTRUE PRINT "LINE NO MUST BE GREATER THAN 0" 
40 IFTRUE OUTPUT $ACCEPTLINE1 REQUEST 

50 IF NOT $MP :LINn NO: LINES :PNAME: OUTPUT :LINE NO: 

60 PRINT "ALREADY OCCUPIED, WANT TO CLOBBER IT?" 

70 IF $YESP REQUEST OUTPUT :LINE NO: 

80 DO SENTENCE "LIST" :PNAME: 

90 OUTPUT $ACCEPTLINE REQUEST 

END 



TO $YESP : L; 

10 IF $MP :L: "YES Y OK" OUTPUT "TRUE" 
20 IF $MP :L: "NO N NAM" OUTPUT "FALSE" 
30 PRINT "YES OR NO?" 
40 OUTPUT $YESP REQUEST 
END 



The program now has a procedure name and lino number, which 
have been pretty carefully checked out, and is ready to start 
work via $INSBREAK1. We assume there are just two kinds of 
breaks, one after a specified number of times through the break- 
point, the other a conditional expression evaluating to "TRUE". 
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TO $INSBRUAK1 :PROC LINR: (inserts breakpoint) 

10 DO SCNTHNCR "UDIT" FIRST (opens procedure for 

:PROC LINE: insertion of breakpoint) 

20 $INSBRBAK2 LAST : PROC LINE; 

WORDS "$8?$" FIRST : PROC LINE: "$•• 

LAST jPROC LINE: 

END 



TO $INSBREAK2 :LINE: ;PNAME: 

10 DO SENTENCE :LINE: :PNAME: (putting in the 

20 DO "END" breakpoint) 
30 DO SENTENCE "TO" :PNAME: 

40 PRINT "(COUN)TER OR (COND) ITIONAL BREAKPOINT?" 
50 IF IS REQUEST "COUN" $MAKECOUNTER ELSE 

$MAKECONDITIONAL 
60 DO "END" 
70 $ENTERBREAK 
END 



We make a simple counter rather than one which increments 
on a condition. 



TO $MAKECOUNTER 

10 DO SENTENCES "10 MAKE" 

: QUOTE: :PNAME: : QUOTE: 
"$SUMM 1 AND :" :PNAME: ":" 

20 PRINT "HOW MANY TIMES THROUGH?" 

30 DO SENTENCES 

"20 TEST IS :" : PNAME: ": " 
$ACCEPTNUM REQUEST 

40 DO SENTENCES 

"50 IFTRUE MAKE" 
:QUOTE: : PNAME: :QUOTE: 
": EMPTY; " 

50 DO SENTENCES 

"40 IFTRUE PRINT" :QUOTE: 
"BREAK AT LINE" LAST :PROC LINE: 
"OF" FIRST :PROC LINE; :QUOTE: 

60 DO 

"50 IFTRUE BREAK" 
70 DO "END" 
END 



(We are using a unique 
construction for variable 
name as well as procedure 
name) 



(reset counter) 
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TO $ACCBPTNUM :NUM: (elicits a number) 

\p IF NUMBliRP :NUM: OUTPUT :NUM: 

2^) PRINT "NUMBUR PLEASC" 

50 OUTPUT $ACC[iPTNUM RBQUliST 

END 



Now, for creation of conditional breaks. 



TO $MAKBCONDITIONAL 

10 PRINT "CONDITION FOR BREAK..." 

2/5 DO SENTENCES 

"30 IF" REQUEST "THEN BREAK" 
30 DO "END" 
END 



The set of procedures for creating a breakpoint facility is 
now complete. Ihe only things remaining are the bookkeeping 
procedures for keeping track of the breakpoints inserted. One 
of these, $ENTERBREAK is already mentioned in $I>JSBREAK2. It 
simply enters the breakname on the list "BREAK POINTS". 



TO $ENTERBREAK 

10 MAKE "BREAK POINTS" SENTENCES 

.'BREAK POINTS: FIRST :PROC LINE: 
LAST :PROC LINE: 

END 



It is left to tlie reader to write the simple procedures 
which selectively or globally list and erase breakpoints. 



4.2 Running a procedure over a specified input domain 



In many circumstances it is desirable to run a student's 
programs in a mode different fror. their original operation. We 
next discuss sets of procedures to do this. Perhaps the very 
simplest generalization of simply trying a student's program with 
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a sequence of different inputs is to provide many sets of input 
parameters at a time. The chief utility of this extension is 
that standard sots of inputs can bo developed by the user and 
applied to student procedures very simply. The top-level 
procedure is $RUN, which takes three inputs the procedure to 
be exercised, the number of inputs, and the list of input sets. 
$RUN uses $PULLQ to pull and quote one set at a time and $CUT to 
give the remainder of the input set. 



TO $RUN :PNAME: :# INPUTS: : INPUT LIST: 

10 IF EMPTYP : INPUT LIST: STOP 

20 DO SENTENCE :PNAME: $PULLQ : <f INPUTS: 

: INPUT LIST: 
30 $RUN :PNAME: $CUT :# INPUTS: : INPUT LIST: 
END 



TO $PUl LQ : NUM: : LIST: 

10 IF EMPTYP :LIST: EXIT "NOT ENOUGH INPUTS" 
20 IF ZEROP :NUM: OUTPUT : EMPTY: 
30 OUTPUT SENTENCnS 

rQUOTE: 

FIRST :LIST: 

rQUOTE: 

$PULLQ (DIFF :NUM: 1) BUTFIRST :LIST: 

END 



TO $CUT :NUM: rLIST; 

10 IF ZEROP :NUM: OUTPUT :LIST: 

ELSE OUTPUT $CUT (DIFF :NUM: 1) 

BUTFIRST :LIST: 

END 
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Now, to show its use. 

+T0 FOO ;A: :B: 

010 PRINT SUM OF :A: AND :B'. 

@nND 

FOO DEFINBU 

+$RUN "FOO" 2 "123456789 10" 

3 

7 

1 1 
15 
19 
■♦- 

It is easy to write a procedure for $RUN which computes the 
number of inputs of FOO, in fact, $COUNTARGS in the parsing 
section is just that procedure. 

4 . 3 Running a procedure from a specified point 



Another useful facility for debugging programs, especially 
those written by other people, is to run a program starting with 
some arbitrary line number. This is the case, for example, when 
one is confronted with a large (bad practice, of course) program 
whose initial part just generates a lot of printing. The proce- 
dure $RUNFROM :PNAME: :LINE: runs tPNAME: starting at :LINE: by 
inserting a GOTOLINE :LINE: as line 1 of :PNAME:. (If line 1 is 
already occupied, $ RENUMBERing , discussed in Section 4.5, is 
called.) Line 2 is then defined to erase line 1, otherwise 
recursions might end badly. After :PNAME: has been executed, the 
two added lines 1, 2 are removed and the procedure is 
$UNRENUMBERED, if it was $RENUMBERED earlier. 
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TO $RUNFROM :PNAME: :LINE: 

10 TGST $INTP "1 2" LINBS :PNAME: 

20 IFTRUn $RnNUMBER rPNAMli: 

30 DDIT :PNAME: 

40 IFTRUE DO SENTENCE "I GOTOLINE" W :LINE: "0" 
50 IPFALSE 1)0 SENTENCE "1 GOTOLINE" :LINE: 
60 DO "2 ERASE LINE 1" 
70 DO "END" 
80 DO : PNAME: 

90 DO SENTENCE "EDIT" : PNAME: 

100 ERASE LINE 1 

110 ERASE LINE 2 

120 DO "END" 

130 IFTRUE $UNRENUMBER 

END 



TO $INTP : LIST 1 : : LIST 2 : 

10 IF EMPTYP :LIST 1: OUTPUT "FALSE" 

20 IF $MP FIRST :LIST 1: :LIST 2: OUTPUT "TRUE" 

30 OUTPUT $INTP BUTFIRST :LIST 1: :LIST 2: 

END 



4- 4 Testing of procedures which use random number generation 

It is sometimes very difficult to track down bugs which turn 
up in procedures which use random variables; in LOGO these involve 
the built-in operation RANDOM. The bug may only exist for a very 
small fraction of values of a random variable, or the manifestation 
of the bug may vary widely in successive executions of the defec- 
tive procedure. In using LOGO, there are several means at ones 
disposal for systematically varying RANDOM'S outputs. The 
simplest, yet very effective, such method is to replace (by means 
of the user-defined $REPLACE, discussed in Section 4.5) each 
occurrence of RANDOM with a constant -- 0 being the best choice. 
The great success of this procedure is that the most common 
serious misuse of random numbers is forgetting that the value 0 
can be assumed and therefore devising a defective end-test. By 
way of trivial example: 
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TO RANDOMCHOOSn : LIST: 

10 OUTPUT CHOOSE RANDOM :LIST: 

END 



TO CHOOSE : N : : LIST: 

10 IF (EQUALP :N: 1) OUTPUT FIRST OF :LIST: 
20 OUTPUT CHOOSE (:N: - 1) BUTFIRST OF : LIST: 
END 



If RANDOM is replaced by 0 above, the otherwise intermittent 
bug is impaled. (Actually, it is better to $REPLACE RANDOM by 
0000J/1, say, which is numerically the same as 0, but easier to 
$UNREPLACE. ) 

For those very rare (yet very irritating) circumstances 
where the simple substitution described above doesn't work, a more 
methodical replacement of the random numbers is called for. To 
be able to do this, we must be able to repeat a procedure while 
systematically varying some of its internal parameters (as opposed 
to specifying an input domain as we did earlier in the simple 
case $RUN) . Unfortunately, this is a very hard problem. One 
cannot simply systematically replace tho, say 5, occurrences of 
RANDOM in the user procedures by registers which are then method- 
ically "stepped through" from 0 to 9. Consider, for example, the 
following (rather poor) algorithm for generating quinary sequences 
of length :N; -- 



TO RANDOMQUINARY :N: 
10 IF (EQUALP :N: 0) OUTPUT : EMPTY: 
20 MAKE : DIGIT: RANDOM 
30 TEST GREATERP 6 :DIGIT: 
40 IFTRUC OUTPUT WORD 
: DIGIT: 

RANDOMQUINARY (DiFF :N; 1) 
50 IFFALSE OUTPUT RANDOMQUINARY :N: 
END 
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In this procedure, modified from actual studcrt work, the 
RANDOM in line 20 is cycled througJi repeatedly in a single execu- 
tion of RANDOMQUINARY , and very likely even more times through 
repeated calls on RANDOMQUINARY by higher level procedures. 
Furthermore, the number of times RANDOM is invoked in a single 
call to RANDOMQUINARY will vary with the values it assumes, from 
:N: to infinity, though, fortunately the probability of a given 
number of invocations falls rapidly as the number exceeds :N:, 

It is clear from this simple example, together with even a 
slightly active imagination, that the general problem is pretty 
hard. So we try a new tack concentrating on the desired product, 
rather than the means. What we really want is a trace of the 
values assumed by RANDOM so that we can see which ones worked and 
which failed. This is easily done by replacing each occurrence 
of RANDOM with a procedure $RANDOM which, as well as printing the 
value that RANDOM assumes, also prints where it is this posi- 
tional information is taken to be the input to $RANDOM so that a 
single version of this procedure suffices for all occurrences of 
RANDOM gen oration. 

TO $RANDOM : PNAME LINENO: 

Ip PRINT SENTENCE ''AT'' ; PNAME LINENO: 

20 MAKE ''PNAME LINENO" RANDOM i 
30 TYPE WORD "r^ = >" : PNAME LINENO.' 
40 OUTPUT : PNAME LINENO; 
END 

In addition, each procedure containing occurrences of the 
$RANDOM procedure should be traced so that tlie aggregation of 
the more complex random quantities these may generate are clearly 
shown. To do all this we write a procedure which sweeps through 
any specified set of procedures, usually the entire rCONTENTS:, 
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neglecting those procedures which begin with $, (For one thing 
wo don't want to debug "system" procoduresj for another, embarrass- 
ing thing}? would happen to $RANDOM itself, for example,) 



TO $BUGRANDOM :PLIST: (sweeps through :PLIST:) 

IjJ MAKIj "PLIST" SONTIiNCHS :PLIST: (ensures that :PLIST: is a 

sentence) 

20 TP IjMPTYP :PLIST: STOP 
30 TEST IS FIRST OF FIRST 

OF JPLIST: 
40 IFFALSE $BUGRAND0M1 FIRST :PLIST: 

LINES FIRST :PLIST: 
S0 $BUGRANDOM BUTFIRST tPLIST: 
60 PRINT "FINISHED $BUGGING" 
END 



$BUGRAND0M1 will search for lines containing RANDOM. If one 
is found, it is suitably modified by $RANDOMIZE and the procedure 
containing the RANDOM is traced. 



TO $BUGRAND0M1 :PNAMB: : LINES; 

10 IF EMPTYP : LINES: STOP 

20 TEST $MP "RANDOM" TEXT :PNAME: 

FIRST :LINbS: 
30 IFTRUE DO SENTENCE "TRACE" :PNAME: 
40 IFTRUE $RANDOMIZE TEXT :PNAME: 

FIRST :LINnS: 
50 $BUGRAND0M1 :PNAM£: BUTFIRST : LINES: 
END 



TO $RANDOMIZE :LINE: 

10 DO SENTENCE "EDIT" :PNAME: 

20 DO SENTENCE FIRST :LINE: $REP 

BUTFIRST : LINE; 
30 DO "END" 
END 
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TO $RHP :TEXT: (does tho actual replacement) 

10 IF KMPTYP :TBXT: Ol^YPUT J EMPTY ! 

20 TEST IS FIRST :TEXT: "RANDOM" 

30 IFFAISE OUTPUT SENTENCE FIRST :TEXT: 

$JIEP BUTFinST .'TEXT; 
40 IFTRUE OUTPUT SENTENCES 

"$RANDOM" 

: QUOTE: 

jPNAME: 

FIRST '.LINE: 

:QUOTE: 

$nEP BUTFIRST :TEXT: 

END 

To see how this set of five procedures works, let us try it 
out on tho single procedure RANDOMQU I NARY , defined earlier as an 
admittedly trivial example, 

-«-$BUGRANDOM "RANDOMQUINARY" 
FINISHED $BUGGING 
■«-PRINT RANDOMQUINARY 2 
RANDOMQU I NARY OF 2 
RANDOMQUINARY 20 ==> 6 

RANDOMQUINARY OF 2 
RANDOMQUINARY 20 == = > 0 
RANDOMQUINARY OF 1 
RANDOMQUINARY 20 ==> 9 

RANDOMQUINARY OF 1 
RANDOMQUINARY 20 ==> 0 

RANDOMQUINARY OF 0 
RANDOMQUINARY OUTPUTS : EMPTY: 
RANDOMQUINARY OUTPUTS 0 
RANDOMQUINARY OUTPUTS 0 
RANDOMQUINARY OUTPUTS 00 
RANDOMQUINARY OUTPUTS 00 

A clear trace of all procedure operations relating to RANDOM 
is provided even in complex situations where several procedures 
use RANDOM and interact in nontrivial fashion. Tho reader is left 
the much easier task of $UNBUGRANDOMing , by writing the suitable 
set of procedures. 
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^ ' ^ V^^fi " y^ numb eri iig pr ocedure lines 

An ability to automatically renumber the lines of a program 
is a useful editing feature of any line oriented programming 
language. Althougli this facility is not included among the LOGO 
primitives, the primitives are easily extended to perform this 
function. To show the way in which editing commands can readily 
be added by an experienced user, we follow the development of a 
renumbering package in some detail. 

When the procedure being modified is itself the object of 
inquiry, as is the case with dribble file analysis, it is desirable 
to also have facilities to undo changes. When one writes a 
procedure RENUMBDR, a procedure UNRENUMBER is likely to be of 
additional use. Furthermore, a record should be automatically 
generated of which procedures have been modified by RENUMBER. 
Having specified his desired goals in this manner, the user now 
must cast about for a renumbering scheme which is invertible. 
The usual method (as in most flavors of BASIC) in which an initial 
number and step size are input parameters, requires that a separate 
record be kept of the original numbering, a clumsy and inefficient 
method. 

Far simpler is the multiplication of each line number by a 
fixed constant. Division by that constant will then restore the 
line numbering to its original state. A choice of 10 provides 
adequate spacing in nearly all cases and results in a very trans- 
parent renumbering . 

The careful user writing this renumbering package would also 
note two further points: 
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(A) • The input of GOTOLINU must also be modified in each 
appearance of that command. This input need not be a number so 
insertion of an explicit PRODUCT (OP) 10 (AND) must be inserted, 

(B) It matters in which order the lines of a procedure are 
renumbered. If one starts with the lowest number and works up, 
renumbering a given line will clobber a succeeding line if the 
two are in the ratio 1:1^), A renumbering procedure starting with 
the highest number eliminates this difficulty (vice versa for 
unrenumbering) . 



Our hypothetical user follows the convention that "system" 
procedures are preceded by $ to avoid possible conflict with 
procedures defined by the dribble files themselves. He might 
start his procedure-writing, as is his usual style, from the top 
level down or from the bottom up, let us say the top down, 

TO $RENUMBHR tPNAME: 

10 DO SENTENCE "EDIT" :PNAME: (gets into redefinition mode) 

20 DO SENTENCES 

"TITLE" (adds the comment "renumbered" 

BUTFIRST TEXT ?PNAME: 0 to the title line of :PNAME:) 

"^RENUMBERED;'' 

30 $REN :PNAME: (renumbers each of the lines 

BUTFIRST LINES :PNAME: of :PNAME: using--yet to be 

written- -$REN) 

40 DO "END" 

50 PRINT SENTENCE :PNAME: "RENUMBERED" (indicates that the 

renumbering is completed) 

END 



$REN will go through the list of line numbers, starting with 
the last one, creating a new copy of it with line number multi- 
plied by ten, erase the old version and repeat with BUTLAST of 
the list till it is empty. 
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TO $Rl:N tRNAMH: :LIST: 



(:LIST: is the list of line 
numbers to be modified) 



10 IF EMPTY P : LIST: STOP 
20 DO SENTENCE OF 

(WORD OF LAST : LIST: AND 0) 
AND $CGOTO BUTFIRST TEXT* 
:PNAME: LAST :LIST: 



(creates a new lino which has 
line number 10 times that of 
the last one on the list and 
has text modified by $CGOTO 
which looks for GOTO LINES 



30 DO SENTENCE 



and modifies them) 



"ERASE LINE" 
LAST :LIST: 



(erases the old numbered 
version of the line) 
(the last line number on 
:LIST: is taken care of, then 
the process is repeated with 
the rest of the list) 



40 $REN OF :PNAME: AND 
BUTLAST OF : LIST: 



END 



Now to write $CGOTO, which replaces "GOTOLINE" by "GOTOLINE 
PRODUCT OF 10 AND", we use in turn the rather straightforward and 
generally useful procedure $REPLACE. 

TO $CGOTO :TEXT: 

10 $REPLACE "GOTOLINE" "GOTOLINE PRODUCT OF 10 AND" 
:TEXT: 

END 



TO $REPLACE :A: :B: :C: 

10 IF EMPTY P :C: THEN OUTPUT : EMPTY: 

20 IF IS FIRST :C: :A: THEN OUTPUT 

SENTENCE OF :B: AND BUTFIRST OF :C: 
30 OUTPUT $REPLACE :A: :B: BUTFIRST :C: 
END 



Renumbering is now finished and we can create a dummy 
procedure FOO to test it out: 



* 



Remember tliat TEXT :PROCEDURE NAME: :LINE NUMBER: 
gives the complete line including the line number. 
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■«-T0 FOO :N: 

010 PRINT "I AM DOING FOO" 

@20 GOTOLINE :N; 

@l:ND 

FOO DUFINED 
•«-$RUNUMBBR "FOO" 
FOO RONUMBEUUD 
■«-LIST FOO 



TO FOO :N; ;RENUMBERUD; 

100 PRINT "I AM DOING FOO" 

200 GOTOLINE PRODUCT OF 10 AND :N: 

END 



This is a little less than half of the goal we specified at 

the outset. Next we write the "unrenumber J.ng " procedure. It is 

different from its Inverse in that we chock to see if the 

procedure : PNAME : has been renumbered and if not we abort the 
process . 



TO SUNRENUMBER : PNAME: 

10 TEST IMEMBERP "; RENUMBERED; " 

TEXT OF : PNAME: AND 0 
20 IFFALSE PRINT SENTENCE :PNAME 

"HAS NOT BEEN RENUMBERED" 
30 IFFALSE STOP 
40 DO SENTENCE "EDIT" :PNAME: 
S0 DO SENTENCES 

"TITLE" 

REPLACE 

"; RENUMBERED;" 



BUTFIRST TEXT : PNAME: 0 
60 $UNREN : PNAME: 

BUTFIRST OF LINES OF :PNAME 
70 DO "END" 
80 PRINT SENTENCE 
END 



(is the comment RENUMBERED on 
the title line :PNAME: ?) 
(if not, print message so 
indicating) 
(and stop) 

(get ready to edit :PNAME:) 



(remove ;RENUMBERED; from 
the title line of :PNAME:) 



(unrenumber the other lines 
in : PNAME:) 
(leave editing mode) 
PNAME: "UNRENUMBERED" 

(print terminating message) 
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$MEMBKRP, which tests whether : CLRMUNT; is a member of :LIST:, 
is rathor straightforward. 

TO $MGMBL'RP :lliEMUNr: .-LIST: 

10 IF EMPTYP iLIST: OUTPUT "FALSG" 

20 IF IS :ELEMENT: FIRST :LIST: OUTPUT "TRUE" 

30 OUTPUT $MEMBBRP :ELEMENT: BUTFIRST :LIST: 

END 



$UNREN is very much like its counterpart $REN, except that 
before dividing a line number by 10, it looks to see if the last 
digit is 0. If not, the line has certainly been added since 
renumbering was done and is ignored. 

TO $UNREN :PNAME: .-LIST: (:LIST: is again the list of 

the line numbers) 

10 IF EMPTYP :LIST: THEN STOP (stop when :LIST: is exhausted) 

20 TEST IS LAST OF FIRST OF :LIST: 0 (is the last digit of the 

first line number 0?) 
(if not, go on to the next 
line) 



(divide line number by 10) 

(we again have to deal with 
GOTOs) 

(erase the un-unrenumbered 
version of the line) 
(repeat for the rest of 
:LIST:) 



$UNCGOTO is a little more complicated than $CGOTO since a 
sentence rather than a word is searched for. Rather than use a 
more general $REPLACE, we write $UNCGOTO in one piece without 
using $REPLACE. 



30 IFFALSE $UNREN :PNAME: 

BUTFIRST OF : LIST: 
40 IFFALSE STOP 
50 DO SENTENCE OF 

BUTLAST OF FIRST OF :LIST: 

$UNCGOTO OF BUTFIRST OF TEXT 
: PNAME; 
FIRST :LIST: 
60 DO SENTENCE "ERASE LINE" 

FIRST :LIST: 
70 $UNREN :PNAME: BUTFIRST :LIST: 
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TO $UNCnOTO :Tr;ST: 

10 IP UMPTYP :TEXT: THEN OUTPUT :BMPTY 
TUST IS FIUST OF :TUXT: "GOTOLINl;" 
IFTRUIi TUST IS $FIRST4 OF BUTFIRST 
:TDXT; .'LIST: 
"PRODUCT or lf!> AND" 
IFTRUE OUTPUT 

$BUTFIRST5 OF :TEXT: 
OUTPUT SliNTIiNCB FIRST :TBXT: 
$UNCGOTO OF BUTFIRST :TEXT: 



2(» 



40 
50 



($FIRST4 gives the first 
four Clements) 

($BUTFIRST5 removes the 
first five elements) 



END 



(We note, in passing, that $FIRST4 and $BUTFIRST5 can be 
better written as special cases of more general procedures 
$FIRSTN "4" and $BUTFIRSTN "5".) 



Now we have written all the procedures to undo renumbering; 
we test them by returning to our dummy procedure FOO. 



-H$UNRBNUMBER "FOO" 
FOO UNRENUMBERED 
■<-LIST FOO 



TO FOO :N: 

10 PRINT "I AM DOING FOO" 

20 GOTOLINE : N : 

END 



Thus the original version of FOO is restored. This unrenumbering 
process can only be done once. Repetitions will be ineffective. 

^$UNRENUMBER "FOO" 

FOO HAS NOT BEEN RENUMBERED 

4- 

The only work remaining is to obtain from the set of 
procedures defined (:CONTENTS:) that subset which has been 
renumbered. 
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TO $SUARCllRUN 

10 OUTPUT $SRC iCONTUNTS: 

HND 



TO $SRC :PLIST: 

10 IF EMPTYP :PLIST: THEN OUTPUT 
: EMPTY: 

20 THST MEMBDRP " ; RENUMBERRD j 
TEXT FIRST :PLIST: "0" 

30 IFTRUR OUTPUT SENTENCE 
FIRST :PLIST: 
$SRC BUTFIRST OF :PLIST: 

40 OUTPUT $SRC BUTFIRST :PLISTj 

END 



(we must initialize our 
search by specifying a list 
of procedure names) 



(test if the first procedure 
in rPLIST.' has been renumber 

(if so, include it in the 
output and go on) 
(if not, just go on) 



And, we can even write a procedure which unrenumbers 
everything. 



TO $UNRENUMBnRALL 

10 $UNRALL $SEARCHREN (initialization) 
END 

TO $UNRALL :LIST: 

10 IF EMPTYP :LIST: THEN STOP 

20 $UNRENUMBER FIRST OF :LIST: 

30 $UNRALL BUTFIRST OF :LIST: 

END 



This is a fairly substantial, sophisticated product for a 
relatively small, unsophisticated amount of work. Such a package 
should be the product of no more than two hours of work by a 
reasonably experienced LOGO user of average ability. 
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4 • 6 Purthoi^ examples of cditi n g ai d s 

In the pi^eceding section wo developed one particular aid 
a renumbering package in some detail. We did so for purposes 
of illustration - not all users will feel a need for such a 
capibility and those who do may have differing views on the form 
and effects of such a package. In this section we briefly discuss 
some further ^*stand alone" aids which can easily be written to 
augment editing capabilities. 

Modifying some or all of the procedures in one's workspace 
is often useful, as for example, when the name of a procedure is 
to be consistently changed, This is easily done by using DO^ 
LINES, and TEXT in much the same way as in the renumbering example. 
The form of the top-level procedure might be 

RHPLACH (old text) (new text) (procedure list) 
where the procedure list specifies those procedures in which the 
substitution is to be made. (:CONTENTS: can be used to specify 
all procedures,) An example of a REPLACE procedure similar to 
this is developed in Appendix 1, 

r 

A related idea is to develop a procedujre 

FIND (text) (procedure list) which simply enumeraizes the 
occurrences of (TEXT) in the domain specified by (procedure list). 

Both of the above types of procedure can be much enhanced by 
the use of the set of pattern matching procedures which we have 
written in LOGO, ^ They provide a capability much the same as that 



TY jse are described in "Uses of the LOGO Programming Language in 
11/ dergraduat e Instruction" Lukas, George, Proceedings National 
Conference, Association for Computing Machines, 1971. 
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in SN0B0L2. Those pattern matching programs arc accessed by a 
top-level procedure MATCH (pattern list) (text). MATCH is a 
predicate which returns true or false as it succeeds or fails. A 
pattern list is a string of variables and literal text. In the 
case of success, any variables used in specification of the 
pattern are set to those values which resulted in success. 



Variables are distinguished from literal text to be matched 
by their first character being $. They may be followed by a pair 
of parentheses enclosing a type specification for the variable. 
The typos of variable currently '»built-in*^ include 

PAR must have correctly matching parentheses 

NUM must be numerical 

(number) must be of length (number) 

The matching package also provides the user an area to insert liis 

own variable specifications. 



Examples of the use of MATCH are; 



-f-PRINT MATCH "AB'^ "ABC" 
FALSE 

-(-PRINT MATCH "A $U" "ABC" 
TRUE 

-(-PRINT :$U: 
BC 

-(-PRINT MATCH "$U(PAR) * $V(PAR)" " ( X+ 2) * ( X+ 3) " 
TRUE 

-(-PRINT :$U: 
(X+2) 

-(-PRINT :$V: 
(X+3) 



Two notes should bo made regarding the use of variables in 
pattern specification. First, the use of repeated matching 
occurrences of a variable in a pattern results in the requirement 
that all occurrences be identical, unlike SN0B0L2. Second, 
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declaration of type of variable need only be made for one 
occurrence of the variable in a pattern list, although the 
declaration can be repeated if desired. 

The pattern matching capabilities can be used to advantage 
in all phases of the analysis. Thus, when working directly with 
the student programs, matching procedures can be used to locate 
and correct bugs of specified form; for example, to replace all 
occurrences of^tiU form PROCBDURENAMB (A,B,C) by PROCEDURONAMB 
(B,A,C). The entire parsing package can be managed by a pattern- 
matching-based executive program. It can, for example, make the 
parenthesis checking procedures more powerful by extracting the 
content for further analysis. It can easily separate out .the 
student comments and do specified keyword searches on them to 
help guide the analyst's run time work. 

4 . 7 Inserting Comments into the Procedure Structure Diagram 

The "empty" procedure $NOTE is provided in the graphics 
portion of the RUN package to enable comments to be displayed on 
the procedure structure diagram along with the procedure name. 
$NOTE simply gives the transformation of its input desired on the 
diagram. Thus, initially $NOTE is defined: 

TO $NOTK rPNAME: 
10 OUTPUT :PNAME: 
END 

Let us say, for example, that a predicate $RECURSEP :PNAME: 
has been defined by the user, which outputs *^TRUE" or *'FALSE^* as 
its input, rPNAME;, is or is not recursive. $NOTn can then be 
used to indicate recursiveness on the procedure structure diagram 
by "starring" recursive procedures. This is done simply by the 
addition of a line to its definition 

5 IF $RECURSEP tPNAME: OUTPUT WORDS :PNAME: "**" 

This facility is used in Example 4 of Part 4. 
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Part 4. 



Examples of System Use 
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1 . Int roduc tlon 

The dribblo file analysis system has been described and 
documented in the preceding parts of this report. In the follow- 
ing pages we illustrate the use of the system in concrete appli- 
cations, nach application emphasizes a particular aspect of the 
system's use. The first example shows hpw the standard facilities 
of the system are used in routine inspection of a student's work* 
It illustrates the various commands for executing dribble file 
lines and shows how procedures are listed and diagrammed during 
the course of running through the dribble file. The second 
example is an analytic study of a student's work during an 
extensive program debugging session. It shows how the system can 
provide the analyst with very specific and detailed insights 
about the student's difficulties, cognitive style, and current 
progre s s . 

The third and fourth examples illustrate features useful for 
analyzing relatively complex program structures. The particular 
program structures wo have chosen for illustration deal with 
random generation of grammatic sentences, and automatic extrapo- 
lation of number sequences. Both are straightforwardly v^rritten, 
compact, and easily understood. Nevertheless, they comprise a 
number of component programs, approximately 10 in each case, 
interconnected at approximately four levels of depth, and some 
of the programs are recursive. In the third example we illustrate 
the use of the procedure diagramming facility for graphically 
displaying such complex structures in a fairly transparent manner. 

In the last example we illustrate the use of analyst-written 
procedures to assist in characterizing complex structures of this 
kind and also in actually augmenting the built-in procedure 
diagramming facility to indicate which procedures are simply 
recursive . 
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Those examples arc treated in the next section. In each 
case, discussions accompany the interactions made using the dribble 
file analysis system. The interactions were recorded using the 
photocopy device associated with the IMLAC display scope. These 
pictures form the basis for the discussions. Wo have typically 
combined two or three such scope pliotographs into each figure so 
as to make the presentations more concise. 

2 . llx ample 1 

The dribble files used in this example and the following one 
were generated by University of Massachusetts under;>raduates In a 
remedial computer mathematics course. Both examples are drawn 
from student work in geometry. The first example mainly concerns 
the development of a procedure for drawing triangles. As will be 
evident from looking at the student's work, he did not find this 
to be a trivial task. 

Figure 1 shows the beginning of the analysis. In the first 
line, the user starts the analysis system by typing $STARTRUN, 
On line 2, the system requests the name of the dribble file to bo 
analyzed (DRIBBLE FILE:); the user responds by typing the name 
of the lesson (LESSON PARSED). Then, on line 3, he calls for 
execution of the first lines of the dribble file, up to line 15, 
($DOT0 15), Dribble file lines through ***6*** are 

executed with no difficulty these constitute the definition 
of the procedure TRIANGLE. Line however, where the 

student had called for execution of this procedure with an input 
of 3, ran into a problem, causing LOGO to stop. The diagnostic 
states the student's error (MARK NEEDS A MEANING) and indicates 
where the error occurred (I WAS AT LINE 10 IN TRIANGLE). At this 
point the analysis system has stopped and waits for the user^s 
next command. 
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During the course of execution of dribble file lines, the 
procedure currently being defined, if any, is displayed in its 
current form in half-sized text at the lower left corner of the 
display. Note in Figure 1 that TRIANGLH is so displayed. 
Because tlie 5mall text characters are difficult to road on the 
photocopy (though not, of course, on the face of the scope), we 
have s^hown the definition in standard size at the lower right 
corner of the figure (and we follow this convention in subsequent 
figures) . 

In Figure 2 the user proceeds with the command $DOTO 25* 
The system then executes dribble file lines ***9*** through 
***25*** without being halted. (Those lines define the procedures 
MARK, SUPHRMARK, and RECTANGLE.) At this point the user types 
$WHERE and the system responds AT DRIBBLE LINE 25 WHICH IS END 
and then names the procedures which have thus far been defined, 
(Note that at this point, the procedure which has most currently 
been defined, RECTANGLE, is shown at the lower left corner.) 
The user then types the command $DOALL, which calls for the 
execution of the remainder of the dribble file. 

As shown in Figure 3, the system is only able to execute 
the lines up to ***61***. There it ran into trouble, so indicated, 
(THERE ARB 1 INPUTS MISSING FOR MARK. I WAS AT LINE 10 IN TRIANGLE) 
and stopped* At this point the user listed the student's 
procedures TRIANGLE and MARK to look at their current definitions. 
Next (Figure 4) he proceeds with another $DOALL. This time the 
system stops with an error indication after line ***66***. 

The user proceeds in this fashion through line ***78*** 
where another error stop occurs (TUIANGLE HAS NOT BEEN COMPLETELY 
DEFINED) where the student had attempted lo execute TRIANGLE. 
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Subsequently (Figure S) , following tlie $WIHiUH command, the user 
calls for a diagram of the procedure STRIPE by typing $DISPLAY 
^'STRIPH'^ The procedure structure diagram for STRIPE is shown* 
(As with the display of current definitions, small text is u.sed 
in these diagrams also. To aid the reader, the names of the 
procedures displayed in the boxes are typed in at the right of 
the diagram.) The diagram shows that STRIPU uses SUBRUCTANGLIi 
which, in turn, uses SUPERMARK and RECTANGLE. Also, that 
SUPERMARK uses MARK and that RECTANGLE uses SUPERMARK. More 
information about diagrams is given in the section discussing 
Example 3, 

As seen in Figure 6, the user also diagrams the procedure 
TRIANGLE, which has a simple procedure structure (it uses the two 
procedures NUM and MARK neither of which itself uses other 
procedures). This diagram is shown at the bottom of the figure. 
After listing the procedures NUM and TRIANGLE, he calls for the 
execution of the remainder of the dribble file with a $DOALL. 
Completion is indicated by the system printing * * * *bN D-OF- F I LE * * * * . 
The user then typos PRINT :FINAL CONTENiS: to list the student 
procedures extant at the end of the run. 

The studeni; work in this dribble file consisted almost 
entirely in an attempt to write a good TRIANGLE procedure. lie 
did not succeed, despite an extensive (but not insightful) 
editing effort. Along the way he wrote over 20 distinct versions 
of TRIANGLE. The $STEPPROCEUURE facility, in cases like this, 
gives a thumbnail history of the progressive stages in the 
development of a program. The analyst requests an enumeration 
of all these versions by typing $STEPPROCEUURE "TRIANGLE". The 
system responds (Figures 7, 8, and 9) with a listing of these 
successive definitions in the order in which the student had 
created them. In each new version, changed lines are set off 
with the prefix 
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♦■♦STARTftUN 

DRID3L£ PiLEiLESSON PARSED 
♦■eOOTO 15 

1 TO TRIANGLE i H i 

2 10 MARK " X " 

i 20 T 1$ SUM * X " I s N J 
♦♦♦ H 30 IFT STOP 

5 HO HARK SUM " K • I 

e END 

7 «t« TRIANGLE 3 
HARK NEEDS A MEA^UHG. 
1 MAS AT LINE 10 IH TRIANGLE 




TO TRIANGLE :N: 
10 MARK "X" 

20 THST IS SUM "X" 1 ;N: 
30 IFTRUE STOP 
40 MARK SUM "X" 1 
END 



Figure 1. 
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4-«00T0 25 

0 TO MARK ! CHAR ! ! N i 
♦♦♦ 10 10 TYPE 1 CHAR ! 

11 20 TEST IS DIFFERENCE i N i " I ' " 0 - 

♦ 12 ♦<-♦ 30 JFinyE STOP 

♦♦♦ 13 MO HARK ! CHAR i DIFFERENCE i N i * I " 

14 ««« E»D 

15 ««« TO SOPERMARK : CHAR i i N i i LET i i H : 
««« 10 4r4r« 10 MARK : CKAR : : N : 

♦ 17 ««« 20 HARK : lET : : H i 
i; ««« END 

♦♦♦ 19 TO RECTANGLE : LET : ; H ; ; N i i CHAR i i Y : 

20 ♦♦♦ 10 SUPERHARK : CHAR : .• V : ! LET s : H : 

21 20 PRINT • * 

22 30 TEST IS DIFFERENCE : N : - 1 " " 0 " 

23 HO IFTRUE STOP 

«*« 2<i ««« 90 RECTANGLE : LET i i H t DIFFERENCE i N t ' 1 " s CHAR i i 
V t 

««« 2S M« END 

♦••HHERE 

AT ORtOQLC LINE 2S 
UHICH IS 

END 

THE PROCEDURES TRIANGLE HARK SUPERHARK RECTANGLE HAVE BEEN DEFINED 
«-*DOALL^ 




TO RRCTANGLE :LHT: :M: :N: :CHAR: :Y: 
10 SUPURMARK :CIIAR: :Y: :LET: :M: 
20 PRINT 

30 TliST IS DIFFERBNCIi :N: "1" "0" 
40 IFTRUB STOP 

50 RECTANGLE : LET : :M! DIFFERENCE :N: "1" 



:CHAR: :Y: 

END 



Figure 2. 
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AAA 
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AAA 
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f f f 




AAA 
f f f 
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i U 1 • V 1 
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* 9 1 
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1 OUDRGCTr^NGLE i 


H 1 1 N 1 1 


1 T : 






CIA 






! H ! ; N 1 


VW \ 


V . « 1 M 


♦ ♦♦ 


ft 4 




30 TEST JS SUM : 


Y 1 " I • 


1 9 t 




▲ ▲ ▲ 
f f f 


9? 


^ ^ A 


MO IFTRUE STOP 










5J 




50 STRIPE 1 H 1 


1 N t SUH 1 


i i " 


I • 1 S J 




54 




EUO 










50 




TO MIDDLE 1 H : 


: X 1 








S$ 




10 HORK " • DIFFERENCE HAIF 




HALF COUNT 




57 




JO TYPE t X ! 










5S 














ei 




TRimjGLE 3 









THERE ARE I INPUTS HISSING FOR MARK. 
I MAS AT LINE 10 IN TRIANGLE 

4-LlST TRIANGLE 

TO TRIANGLE iN: 
10 HARK "X" 

20 TEST IS SUH "X" I tHi 
30 IFTRUE STOP 
40 MARK SUH 'X" I 
END 

♦LIST MARK 

TO HARK :CHAR: iN: 
10 TYPE :CHAR: 

20 TEST IS DIFFERENCE :N! I 0 
30 IFTRUE STOP 

HO HARK :CHAR: DIFFERENCE '.N: 1 
END 



W »!«H lit III . . 

ii un III 

M 



TO MIDDLE :N: :X: 

10 MARK DIFFERHNCfi HALF :N; 

HALF COUNT :X: 
20 TYPE :X: 
END 



Figure 3. 



O 4-7 

ERIC 



Report No. 2625 



Bolt Boranck and Newman Inc. 



«-«DOftLL 

♦♦♦ C2 EDIT TRIANGLE 

63 10 MftRK " X - I 
♦♦t CM HO HARK • X • $UH • X • 1 
♦♦V G5 END 
♦♦♦ C6 THIANCLE 3 
X 

SUM OP "X* AND "l" 

INPUTS MUST OE tiUHDERS. 

t l^AS AT LlUl 20 IN TRIANGLE 



75 LIST SUPERHARK 

TO SUPERHARK iCHAR: :N: iLET: :Mi 
iO HARK iCKAR: :H: 
20 HARK :LET: :H: 
END 

7$ EDIT TRIANGLE 
f** 7t TRIANGLE : N : ; H : 
TRIANGLE HAS NOT BEEN COMPLETELY DEFINED. 



It tWi I 

ri t:it It ta I « ii> 
t> I'm 

t> tSM t» t I 

tsl 



TO TRIANGLK :N: 

10 MARK :X: 1 

2^ TBST IS SUN5 1 1 :N 

30 II-TRU!- STOP 

40 MARK "X" SUM 1 1 

liND 



Figure 4. 
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♦•••WERE 

AT Ot?IODLE LINE 97 

UKICH tS 
TRIHCLE H 

THE PROCEOuriES TRIANGLE HARK SUPERHftRK RECTftNGLE SUBRECTANCLE FIND HALF 
DELETE STRIPE MIDDLE um TRIANGLE HAVE SEEN DEFINED 
♦••OlSPLAV "STRIPE" 




igure 5. 
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♦•♦OISPLAV •TRIrtNCLE* 
4-Ll$T HUH 

TO NUH iNi 
10 MAKE iN: 1 

4-LlST TRIAHCLE 

TO TRIANCLE :K: 

iO MARK "X* HUH :N} 

20 PftlKT 

30 TEST IS OlFFEREMCE :H: I 0 

«*0 IFTRUE STOP 

50 MARK SUH NUH iN: I 

END 



«-«DOALL 

187 EDIT TRIANGLE 
lit 

♦♦♦♦EHD-OF-nLEM«* 



♦-PRIHT !FlHftL CONTENTS: 

TRlAWaLE 1 1 HARK d SUPERMARK 15 4 RECTANGLE IS 5 SUDRECTAN6LE 2$ 3 
FIND 33 1 HALF 39 I DELETE 43 2 STRIPE 45 4 MIDDLE S3 2 NUH 87 I 
TRIANGLE 00 1 




TRIANGLE 



Figure 6. 
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♦■•STEPPROCEOURE •TRIANCLE" 

■ ■>T0 TRIAfjCLE : U : 

If 

TO TRIANGLE : N : 
■•>10 HARK " X - 

TO TRIANCLE : H : 
IC HARK " X ' 

•«>20 T IS SUH • X " 1 ! N ! 
♦ 

TO TRIANGLE : H : 
10 HARK - X - 

20 T IS SUH " X * 1 : N : 

««>30 ITT STOP 

♦ 

TO TRIANGLE i N : 

10 HARK " K " 

20 T IS SUM " X - I ! N ! 

30 IFT STOP 

■»>40 HARK SUM ' X • I 

* 

TO TRIANGLE : N : 

««>10 MARK • X " I 

20 T IS SUM " X " i : N : 

30 IFT STOP 

40 HARK SUH ' X " I 

♦ 

TO TRIANGLE : N : 

iO HARK ' X ' 1 

20 T IS SUM " X " 1 : N : 

30 IFT STOP 

e«>40 HARK - X " SUH " X " I 

TO TRIANGLE : H : 

10 HARK - X • 1 

«»>20 T IS SUH 1 I : N : 

30 IFT STOP 

HO HARK ' X " SUH " X " I 
♦ 

TO TRIANGLE : N : 
10 HARK - X " 1 
20 T IS SUH 1 1 : N : 
30 IFT STOP 

«»>S0 HARK " X " SUH I 1 



Figure 7, 
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TO TRIflNGLE : H : 

10 MARK " X - HUH : N ! 

20 PRINT - - 

■«>30 T IS OlFF : H : I 0 
« 

TO TRIANOLE : H : 

10 HARi< ' K - HUM : N : 

20 PRIHT - - 

30 T IS Oirr : H : I t> 

««>H0 IFT STOP 

If 

TO TRIAMGLE : H : 

10 HARK • K - NUH : N : 

20 PRINT • - 

30 T IS OlfP : H : 1 0 

•^O IFT STOP. 

««>S0 HARK " X " SUH NOH : N ; 

TO TRlANCie : H : 
••>10 HARK - X " - N " 
20 PRINT - - 
30 T IS OlFF ! H : I 0 
HO IFT STOP 

50 HARK - X • SUH WH : N : 1 
♦ 

TO TRIANGLE : H : 
••>10 HARK • X " " NU " 
20 PRINT " - 
30 T IS DIFF : H : 1 0 
HO IFT STOP 

50 HARK " X - SUH NUH : N s 1 
♦ 

TO TRIANGLE : H : 

10 HARK " X " " NU 

•«>20 HARK - X " SUH - NU " 1 

30 T IS OlFF : H : 1 0 

HO IFT STOP 

50 HARK " X '* SUrt NUH : N : I 

TO TRIANGLE : H : 

10 MARK * K * * NU ' 

««)20 PRINT " " 

30 T IS DIFF : H : 1 0 

HO IFT STOP 

50 HARK * X " SUH NUH : N : 1 
♦ 

• • « 

• • • 



Figure 8. 
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TO TRIANGLE : H : 
■•>10 HARK • X " i NU ! 
20 PRINT • • 
30 T IS OIFF i H I 1 0 
HO IFT STOP 

50 HARK " X " SUM " NU " I 

TO TRIANGLE : H : 
10 HARK " X • : NU i 
20 PRINT • • 
30 T IS pIFF : H ! 1 0 
40 IFT STOP 

••>50 HARK " X - SUM ! NU i 1 
t 

TO TRIANGLE ! H : 

10 HARK • X • : NU s 

20 PRINT • • 

30 T iS DIFF : H i i 0 

•»0 IFT STOP 

•■>50 MAKE 

♦ 

TO TRIANGLE : H : 

10 HARK * X " : NU : 

20 PRINT ' • 

30 T IS OIFF : H : I 0 

HO IFT STOP 

50 HAKE 

>>>eO TRIANGLE : M : 
♦ 

TO TRIANGLE : M : 

10 HARK ' X • : NU : 

20 PRINT " - , 

30 T IS OIFF : M : I 0 

HO IFT STOP 

50 HAKE 

««>60 TRIANGLE : N : 
♦ 

TO TRIANGLE : M : 
10 MARK • X • ! NU : 
20 PRINT • • 

••>30 T IS OIFF ! N ! I 0 
.HO IFT STOP 
50 HAKE 

60 TRIANGLE : N : 



Figure 9. 
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3. Example 2 

This example shows the use of the system in an intensive, 
deep, sustained analysis of student work at operational and 
intentional levels. The student's work shown in this dribble 
file is aimed at creating a procedure DIAMOND for drawing a 
diamond-shaped figure. The student's plan in designing this 
procedure is to create two sub-procedures NUM for drawing 
triangle and UPD for drawing an "upside-down" triangle. The 
execution of a NUM followed by the execution of an UPD with 
matching input should produce the desired result. Figure 10 
shows the analyst's execution of the initial lines of the student's 
dribble file, via the command $DOALL* These lines define the 
procedures MARK, SUPERMARK, RECTANGLE, SUBRECTANG LE , and 
(partially) FIND. A little later on, as seen at the beginning 
of Figure 11, the procedure NUM appears to be working. NUM 
simply initializes and invokes the triangle drawing procedure 
TRIANGLE. Student line ***69*** is an execution of NUM 4 and 
this results in the drawing of a triangle with 4 rows of X's. 
Already the student's work seoms to be half finished. 

In dribble file lines ***70*** through ***78*** the student 
has defined the upside down triangle drawing procedure UPD. On 
line ***79*** he has called for the execution of the procedure 
UPD4. This is an error (he meant to write UPD 4). So LOGO 
complains that UPD4 NEEDS A MEANING. At this point the analyst 
executes a $WHERE to list the currently defined procedures. He 
then diagrams the procedure structure of TRIANGLE (Figure 12) and 
proceeds by executing the next lines -of the student's program 
with $DOALL (Figure 13). 
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Now the student lias correctly called for the execution of 
his UPD procedure (Line ***80***). But, DPI) 4 does not produce 
the desired upside down triangle, Instead, it continues indefi- 
nitely to draw rows of 4 X*s. The analyst terminates this with a 
BREAK and then lists the procedure UPD. Superficially it appears 
correct it has a stopping condition and end test defined in 
lines 30 and 40 and a decremental iteration of the input in line 
50. (This directs it to draw two less X's on each successive row 
of the upside down triangle.) But, obviously something is wrong. 

Figure 14 shows the analyst executing the next lines of the 
student's work. The student has started to debug UPU. In lines 
***82*** he puts a TRACE on UPD and then executes UPD 4 again. 
The trace lists the successive invocations of UPD. The correct 
sequence of calls should begin UPD OF 'M", UPD OF "2", . 
Instead, UPD OF 'M^' calls UPD OP "4" indefinitely. After a BREAK 
the analyst executes another $DOALL to see the student's next move. 
The student has now decided to list UPD. After this (line 
***86***) he once more executes UPD 4. (Probably he couldn't see 
that anything was wrong and wanted to try the procedure again 
perhaps the computer had made an error of some kind.) But this 
produces the same unfortunate result. 

By the next line, some light has dawned. Figure 15 shows 
the student fixing a bug in UPD. Dribble file lines ***9i*** 
through ***93*** show him editing the procedure. He changes line 
50 of his procedure from 
MAKE :N: DIFF :N: 2 

to 

MAKE ^'N" DIFF :N: 2 

This makes effective the decrementing of :N: by 2 on each round. 
The student calls UPD 4 again on the following line. And now 
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another problem appears: UPD 4 writes a row of four X's and then 
calls UPD 2 which writes a row of two X^s, which in turn calls 
UPD 0 which writes what appears to be an endless row of X's. The 
analyst breaks the execution of UPD, 

The following $DOALL exposes the student's next line. lie 
executes UPD 0 to confirm its non term? n a ting effect. Then (in 
line ***99*** in Figure 16) he has traced this effect down one 
level to find the subprocedure MIDDLE responsible. MIDDLE 50 1 0 
produces the same nont ermi nating sequence of marks (I's in this 
case). At this point the analyst lists the procedure. MI DDLE to 
see what it does. And, as is shown, MIDDLE invokes the subproce- 
dure MARK two times. He then executes the student's next line 
***101*** which shows the student himself running the subprocedure 
MARK and observing that MARK 1 0 replicates the results of 
MIDDLE 50 1 0 and UPD 0, its big brothers. 

After breaking the execution of MARK, the analyst lists 
MARK :CHAR: :N: and presumably sees that, when its second input 
is 0, MARK will indeed fail to stop. Instead it will slip through 
the test for :N:-0 and indefinitely continue with a sequence of 
negative :N: values. This is also understood by the student who 
has (Figure 17) traced MARK and certainly noted this. The 
student's response is interesting. Instead of debugging MARK so 
that its stopping condition will work for even :N: as well as for 
odd :N:, he has evidently realized that his DIAMOND procedure 
only invokes MARK with odd values of :N: (since diamonds always 
have odd numbers of X's in their rows; thus UPD 1 will make the 
last call to MARK and MARK ''X'» 1 wi 11 stop after typing a single 
''X^' mark). So the student realizes that he can ignore the 
difficulty with MARK, since it is not relevant to his goal, and 
he proceeds with DIAMOND. In lines ***ii2*** through ***ii5*** 
he defines DIAMOND as NUM 8 followed by UPD 15. 
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Then (Figure 15) he executes this DIAMOND procedure and it 
works. Obviously, though, ho is unsatisfied with It. It is only 
capable of drawing the single diamond made up of an 8-rowod 
triangle on top of an 8-rowed upside down triangle. In the next 
few lines he erases this limited drawing procedure and defines a 
raore general DIAMOND procedure with two inputs. DIAMOND :L: :V: 
is defined as NUM :L: followed by UPD ;V:. He tries this 
(Figure 19) with a D-rowed triangle and it works at once. 

But, he is still dissatisfied with the inelegance of the 
definition. The procedure should be smart enough to work with a 
single input and automatically match the interface between the 
triangle made by NUM and the upside down triangle made by UPD. 
So he again erases the current version of DIAMOND and rewrites it 
as a single-input procedure DIAMOND :L: composed of NUM :L: and 
UPD :L: + :L: -1. Upon trying DIAMOND 5 he finds that the seams 
do not quite match the first row of X's made by UPD is the same 
size as the last row of X' s made by NUM (instead of two X's 
smal ler) , 

He fixes his procedure (Figure 20) by changing the input of 
UPD to :L: + :L: -3, Now his procedure apparently satisfies his 
goal. He exercises it several times with various inputs, 
including (line ***i5i***) a random input. After listing his 
procedures MIDDLE and TRIANGLII and asking for the time of day, 
he starts to log out. In Figure 21 the analyst executes a 
$WHBRb*, displays the procedure structure diagram for DIAMOND, and 
executes the last lines of the dribble file. 
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IDOALL 

3 TO HARK : CHAR i : N ! 

H iO TYPE : CHAR i 

5 20 TEST !$ OlfFERENCE s N j « i » " 0 * 

6 30 IFTRUE STOP 

♦ 7 •<-♦ HO \m< J CHAR s OlFFEREtlCE s H s " I ' 

♦ S IHO 

««« 9 ««« TO SUPERHARK s CHAR $ t N t i LET i i H t 

10 10 HARK : CHAR : \ H : 

11 20 MARK J LET : : H i 

12 EMD 

13 TO RECTAUGLE : LET : i M t « N t j CHAR i t Y J 
««« IH t«« 10 SUPERHARK : CHAR : : V : : LET ! : H : 

15 20 PRINT ' - 

16 30 TEST IS DIFFERENCE s N s " 1 " " 0 " 

17 40 IFTRUE STOP 

It 50 RECTANGLE : LET s : H : DIFFERENCE : N : " 1 " i CHAR : : 

Y J 

19 ««« END 

««« 20 TO SUdRECTANGLE : H i : N : s Y : 

♦ ♦♦ 21 10 SUPERHARK " " : Y : •• X " : H : 

22 15 PRINT - - 

23 20 TEST IS DIFFERENCE : N : " 1 " " 0 " 
2M 30 IFTRUE STOP 

25 HO RECTANGLE " : H : DIFFERENCE : N : " 1 " " " J Y : 

2e END 

27 TO FIND : N : 

2t 30 TEST GREATERP " 2 ' DIFFERENCE DIFFERENCE : N ! : TRIAL : 
: TRIAL : 

2S HO IFTRUE 6UTPUT : TRIAL : 

30 50 HAKE " TRlftL " SUH : TRIAL : " 1 ' 

31 eO OUTPUT FIND : N : 



«* I'tK-t WW idlKt 

It mt •iii«< M iiiitii I 



40 

50 
END 



TO 
30 



FIND :N: 

TliST GRJiATb'RP 2 DIFFGRENCf- 
DIl-PERl-NCE :N: :TRIAL; :T1UAL: 
IFTRUE OUTPUT :TRIAL: 
MAKE "TRIAL" SUM iTRIAL: 1 



Figure 10. 
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«t« C6 ««« EDIT TftlANOLC 

e7 30 T JS SUH I N : OIFF : N j I i NU i 





70 




TO UPO : N : 




71 




10 HIOOLE 50 " X " 




72 




20 PRINT " " 




73 




30 T IS : N I I 




7M 




IFT STOP 




75 




HO IFT STOP 




7$ 




50 HftKE s N : OIFF 




77 




$0 UPO : N : 




71 




E»0 




7$ 




UPOH 


OH 


NEeos 


A KEANINC. 



1 UA$ AT LINE 3S IN lOOLlNE 



ttm.ii TO UPD :N: 



X 
XXX 
XXXXX 
XXXXXXX 



W Ctrl III timttMt i»i I 




10 MIDDLE 50 "X" :N: 
20 PRINT 
30 TEST IS :N: 1 
40 IFTRUE STOP 

50 MAKE :N: DIFFERENCE :N: 2 

60 UPD :N: 

END 



Figure 11. 
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•■♦HHERE . — — 
AT DRIBBLE i\Hl 7$ 
HHlCH IS 

THE PROCEDURES HMY. SUPERHARK RECTASGLE SUQRECTAHGLE flNO HALF DELETE 
STRIPE MIDDLE TRIANGLE UPD HAVE BEEN DEFtNED 
♦••OlSPLAV "TRIANGLE" 




Figure 12. 
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♦•DOALL 

XXXK 
UXX 
XVKX 
XXXX 
XXXX 

xxxx 

XXXX 
KKKK 
KXXX 

KX > K 

XXXX 
XXXX 
XXXX 

BREAK 

1 HAS AT LINE 40 \U FIND 
HIST JjPD 

TO UPD :N: 

10 MIDDLE 50 -X" -.U: 
:o PRIia -•• 
30 TEST IS :N: 1 
HO IFTROE STOP 

SO MAKE :H: OimPiUCt :H: 2 

60 UPO 

EWO 




TRIANGLE 
MI DOLE 
] HALF MARK 
FIND 



Figure 13. 
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M» Ji TRACE OPD 
UPD OF •'H" 

i^PD or -s- 

UPD OF -4- 
UPD OF ^-s- 
UPD OF -s- 
OPD OF 



KKXX 

\X AH 
K A > X 

K R )( ^ 



BREAK 

J HAS AT LINE 10 lU MA»f' 

•^♦DOALL 

JH LIST UPD 

(TRACED) TO UPD lUi 
iO MIDDLE 50 -X** iN: 
20 PRlliT 

30 TEST IS :N; I 

HO IFTPUE STOP 

50 MAKE jN: DIFFERENCE :N: 2 

SO UPD :H; 

END 

UPD H 

UPO OF "H- 



>. y f. 



UPD or -H- 
UPD or "H'- 
oPD or 




TRIANGLE 
MIDDLE 
HALP MARK 
FIND 



Figure 14. 
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tt CANCEL 
CAhCCL UiiO% A MEANING, 
I HA$ AT LINE 3S IH lOOLlNE 
•^♦DOALL 

$3 P J H J 

2 

Ml 90 0# P i 6 : ^ 

♦ M 91 EDIT UPO 

♦ M 92 50 HA^^E " N OirP : N : 2 

♦ M 93 ENO 

♦ 9h UP^O H 

UPO or •'s- 
UPO or •2- 
UPO or "0" 

■ ; X y A ' rif M o X I' K y, ^ X ^ A X K r y K K K K X X X K X K K X X X X X X X X X X X 
KXXXXXKXKKX?'XXXKXX>,)i;M^wM^^^>kFMnyKX^.j(j(^.X<M/xyKXKXXKXXXXXXKXXXKXXXXX 
X X X X X 
BREAl^ 

♦IDOALL 

♦ ^t 97 #M UPO 0 

UPO or 

KXXKxayXXXXXHXXXXXXXXXXXXXXXXXXXXXXXXXkXXXXXXX 

xxxxxxxxxxxxxxuxvxxxxxxxxxxxxyxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

XXXXXXXXXXXXKXXXKXXXXXXXXXXXXXKXXXUXXXXXXXX 

BPEAK 

1 HA$ AT LINE 30 IN MARK 



U ll>XI U *l* III 

11 int li III I 

II art itrrtHi*! mi I 



TO UPD :N: 

10 MIDDLE 50 "X" :N: 

20 PRINT 

30 TliST IS :N: 1 

40 IFTRUE STOP 

50 MAKli ''n'' DIPFKUKNCE :N: 

60 UPD :N: 

END 



Figure 15. 
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MDOftLL 

M* S3 M* HIO^LE 50 1 0 

iinniiinninnnnnnnninininnnnii 
iiinnnnmnininininniiininnnniininiinniniiininun 
iininunnniiinniinniniii 

I HAS AT llKt 20 \U HARK 
HIST HlOLt 
HIST lUODLE 

TO MIDDLE :X: :V: 

10 HARf' OIFFERENCE hAiF iU: HALF PRODoCT COOUT iX! iV: 

20 HARK ! K : : V • 

END 

»«DOALL 

iOl HARK i 0 

nnnnninnnininiiiiiiiinniiiinniinnnninnninniiiini 
nnniinnnnnnnnninnnnnnnnnniiniiiiiiiiiuniiiiiiii 
nil nnnnin mini iiiniiiiiininnniiiiniiinnnnnnnuniii 
1 

BREAK 

I HAS AT L IHE 10 IN HARK 
♦•LIST HARK 

TO HA»K iCHA?: 
10 TtPE :CHA3; 

20 TEST IS OIFFEPEt^CE :N: 1 0 
30 IFTRoE STOP 

HO HARK :CMfi?: Dir"EREhCE :'<: 1 
END 



» Mim •• 

>• UK It III I 

II (k,<t •«• iirrtKMl III 
CI \in ill 

tat 



TO UPD ;N: 

10 MIDDLE 50 "X" ;N: 
20 PRINT 

30 TI-ST IS :N: 1 
4 0 IPTRUn STOP 

5^ MAKIi "N" DI}'FRRENCE :N; 2 

60 UPD :N; 

KND 



Figure 16 
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J 

HARK or "1" AND "-'o5" 

I 

MARK or "1" AMO "-56" 

i 

HARK or "1" ANO "-57" 

1 

HARK OF "l" ANO "-SS" 

1 

HAftf. or "1" AWO "-5$" 

I 

MARK OF "i' AND "-60" 

1 

HARK OF -I- AHD "-61" 

1 

HARt' OF "p AND '-62' 

I 

MARK OF "i" A»(0 ••-63" 
I • 
MARK OF 'i' AHO "-6'<' 
BREAK 

♦■♦OOALL 

♦ no £RftS£ ALL TRACES 
III UPO 5 

xxxxx 

XXX 
X 

♦♦♦ 112 TO OlAHONO 
113 iO NUH I 

♦ im *♦» 20 UPD 15 
4t« 115 END 



TO DIAMOND 
itiiMM 10 NUM 8 

nSSti 20 UPD 15 

END 



Figure 17. 
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lie M» D1AM0^JD 

XXX 
XKKXK 
yXKKKKK 
XXXXHkXXX 

xxxxxxxxxxx 
xxxxxxxxxxxxx 
xxxxxxxxxxxxxxx 

XXXXHXXXXXXXXXX 
XKXXXXXXXXXKX 
XXXXXXKXXXK 
XXXXXXXXK 
KXMKXX 
XXKXM 
UK 
X 

♦ 117 EDIT DIAMOND 
IIJ 10 NUH 9 

110 END 
120 OlAHOHD 

• 4 • 
t • • 

• 4 • 



DOALl 






t 121 




ERASE DIAMOND 


♦ 122 




TO OlftMOHO : 


t 123 




10 HUM : L : 


♦ 12H 




20 UPO : V : 


♦ 125 




END 



Figure 18. 
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12& M« DIAMOND d IS 

X 

XXX 

xxxxx 
xxxxxxx 

XXXXXXXHX 
XXXXXXXXXXX 
XXXXXXXXXXHXX 
XXXXXXXXKXXXXXK 

xxxxxxxxxuxxxxxx 

XXXXXXXXKXXXXXK 
X X X X X K X k X X X X X 
XXXXXXKXMXX 
XXXXKHXKX 
XXKXXKX 
K AJ(XX 

X 



OOALL 












EDIT DIAMOND 




129 




END 




130 




ERASE DIAMOND 




131 




TO DIAMOND : 




132 




10 NUH : L : 




133 




20 UPO SUM : 




13m 




END 




135 




DIAMOND 5 



X 

XXX 

xxxxx 

XXXXXXX 
XXXKKkKXX 
XXXMXKKXk 

K J( \ X 

> >< 

X 



Figure 19. 
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ne 0# EDIT DIAMOND 
137 20 UPD SUM : L : OITF : i \ i 
lit END 
t## 13d #M DIAHOND } 

X 

KXXXX 
HXK 
K 



♦ 14d ^#4^ DIAMOND 7 



BREAK 



♦ 151 4r** DIAMOND RANDOM 

X 

XXX 

xxxxx 

XXX 
K 

152 LIST MIDDLE 
TO KIDDLE :N: :X: :Y: 

10 MARK DIFFERENCE HALF :N; HALF PRODUCT 'cOUNT :K": :Y; 

20 HARK ;Xj :tr; 

END 

153 LIST TRIANGLE 

TO TRIANGLE :N: 

10 MIDDLE 50 "X" :Nl»: 

20 PRINT 

30 TEST IS SUM tU: DIFFERENCE :N: 1 :NU: 

HO IFTRUE STOP 

50 HAKE "NU" SUM sNU: 2 

END 

♦ M 154 P TIME 
t:3t AM 

155 LOGOUT 

Figure 20. 
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AT ORlBDie LINE 155 

HHICH IS 
LOGOUT 

THE PROCEDURES im/. SUPERHAR*: RECTANGLE SUBRECTAf^CLE FlNO HAir DELETE 
STRIPE MiOOLE HW TRIANGLE OPD OlAKOND DIAMOND DlAHONO HAVE DEEH DEFIUEO 
♦•♦DISPLAV "DIAMOND" 




I TRIANGLE 
C^U HALF 
FIND 



UP!) 



MIDDLE 



MARK 



• IDOftLL 

»*» 158 *♦* 

♦ ♦MENO-O'-f ILEMM 



Figure 2 1 . 
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^ ' F^xamp 1 0 3 

This dribble file documents the development of a set of 
programs written to generate grammatic sentences with randomly 
chosen constituents. Figure 22 shows the execution of most of 
the lines of the dribble file. Specifically, the procedures 
CHOOSB, RANDOMCHOOSn , GI-INOUN, GHTVHRB, GETADJ, GETCON, 
MAKUniCTIONARY, Li'ttLESENTENCE , S I MP LES ENTENCE , BIGSENTENCU, 
TALK, KEEPTALKING, and TALKALOT have been defined. Most of these 
procedures are short (1 - 4 lines) and their effects are quite 
tran sparent . 

CHOOSE has two inputs an index and a list of words. It 
selects the word in the list specified by the index. RANUOMCHOOSE 
has a list of words as input. It uses CHOOSE with a random digit 
as an index, to select a word in a ten-word list at random. 
GETNOUN, GETVERB, GETADJ, and GETCON are procedures that use 
RANDOMCHOOSE to randomly select a noun, verb, adjective, or 
connective, respectively, from correponding word lists of such 
constituents. MAKEDI CTIONARY creates these four word lists. 
LITTLESENTENCE generates a random sentence of the form <noun> 
<verb>, using GETNOUN and GETVERB. 

SIMPLESENTENCE uses GETADJ and LITTLESHNTEN CE to generate a 
random sentence of the form <adj ccti ve><noun><verb> . BIGSENTBNCE 
:SIZE: generates a random sentence of the specified number of 
clauses, each of which is generated by LITTLESENTENCE. The 
clauses are joined by connectives randomly generated by GETCON. 
The procedure TALK simply invokes MAKEI3ICTI0NARV and then 
BIGSCNTENCE. KEEPTALKING calls TALK (with a random digit for 
:SIZE:) and then calls itself. Its effect is to generate 
randomly composed sentences of random size indefinitely. 
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TALKALOT :N: calls TALK (with a RANDOM input) :N: timosj thus it 
gonorates :N: random sentences of random size. 

Figure 23 shows student trials of more of these procedures, 
following the execution of a $Wlll]f<li by the analyst. The student 
tries TALK with rSIZC: 1, then 3, then 2; then he tries TALKALOT 
with :N:=2j then he tries KEHPTALK ING , whose execution is inter- 
rupted with a BREAK at the end of the figure. 

In Figure 24 the analyst diagrams the procedure structures 
for LITTLESnNTENCE and SI MPLESENTENCE , In Figure 25 he displays 
the diagram of one of the top level procedures, KEEPTALKING, 
The conventions used in these diagrams are straightforward. Each 
box is associated with the procedure whose name labels the box. 
A directed line from box (HF] to box denotes that procedure 

P uses procedure Q. When P uses Q and both arc in the same row 
(level) of the diagram (because both are used by some other 
procedure) then a directed arc is used to join and "q" 



The usefulness of these diagrams in giving the analyst a 
global overview of the program structure is evident here. Most 
systems of programs, both those generated in extended student 
projects and those produced in professional programming work, 
are a great deal more complex than the sentence generator of this 
example. Typically there are larger numbers of programs, program 
interconnections, levels of call, and recursive parts; and the 
components are larger and more opaque. Diagrams are especially 
useful when used to aid the analysis of these more complex 
program structures, 
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*** } « 

CHOOSE 
♦ ♦♦«<•♦ 



*M 10 

♦ ♦♦ II 

♦ ♦♦ 12 

♦ m 

♦ 15 

le 

♦ 17 

♦♦♦ it 

♦ ♦♦ 1$ 

♦ ♦♦ 20 

♦ ♦♦ 21 



LOVERS 

♦ ♦♦ 22 

OUTPUT 

♦ ♦♦ 23 

OVO 1 D 

♦ 24 
UNTIL OECflUSE 
» »♦ 25 



«M 27 

««« 28 

♦ ♦♦ 29 
««« 3d 

♦ ♦♦ 31 

♦ ♦♦ 32 

♦ 33 

SENTENCES 



♦ ♦♦ 



34 
35 
36 
37 



«M it 

♦ 39 

♦ ♦♦ 40 
t«* 41 

♦ ♦♦ 42 

♦ 43 
44 
45 

««« 4$ 



LIST 
) 



ELSE OUTPUT 



TO CHOOSE ! \um I ! LIST ; 
10 IF ! INDEX ! • 0 OUTPUT FIRST OF 
! U'OEX ! - I ) ( BuTFlRST OF : LIST 
END 

TO RANDOIICHOOSE : LIST j 

10 OUTPUT CHOOSE OF RANDOK AND i LIST ; 

TO GETNOUN 

1 OUTPUT RANDOHCHOOSE : fjOUNS ! 

♦ END 

♦ TO GETVERB 

♦ 1 OUTPUT RANDOHCHOOSE ! VERBS i 

♦ END 

♦ TO GETAOJ 

♦ 1 OUTPUT RANDOHCHOOSE t ADJECTIVES i 

♦ END 

♦ TO GETCON 

♦ 1 OUTPUT RANDOHCHOOSE : CONNECTIVES i 

♦ END 

♦ TO HAKEDICTIONARV 

♦ 1 HAKE " NOONS - - PROGRAMS BUGS CHILDREN GURUS TURTLES 
RUTHS POEHS GuGGlES STARS " 

♦ 2 Hftt'E " VERBS " " riOPr' HORT PEToPN LEARN PLAV SING FALL 
LEBRATE LAU'iM " 

♦ 3 MAKE ' JiDJECTIvES - ' iNCPEDlBuE GOOD NOISV BEAUTIFUL OLD 
ADSTRftCT OBVlOoS G»OI.CHY - 

♦ 4 HA^-E " CONNECTIVES " ' SINCE AND HHlLE THOUGH BUT AS YET IF 



TRUE 



END 

TO LITTLESENTENCE 

10 OUTPUT GEfiTENCE OF GETNOUN AND GETVERB 
END 

TO SIHPLESENTENCE 

10 OUTPUT SENTENCE OF GETADJ AND LITTLESENTENCE 
END 

TO BIGSENfENCE : SIZE ! 

10 IF : SI2E : « 1 OUTPUT SIHPLESENTENCE ELSE OUTPUT 
SHIPLESENTENCE CETCON BIGSENTENCE ( : SIZE : - 1 ) 
END 

TO TALK : SIZE : 

1 HAKEDlCTlONAPy 

2 PRINT BIGSENTENCE 
END 

10 /EEPTAlKJNG 

1 TALK RANDOM 

2 KEEPTALKING 
END 

TO TALKALOT : N : 
10 IF : N ; « 0 
20 TALKALOT : N 
END 



SIZE 



STOP ELSE TALK RANDOM 
: - 1 



Figure 22. 
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AT OftlOOLE LINE 
HHICH IS 

tuo 

THE Pf?OCEDUf»ES CmOOSE P<^NOOMC<-<00$E CETKOu'J CCTvEffB GETAOJ GETCOIJ 
MAKEOICTIO^AR^ L IT TlESE^iTEncC SlH?LCS£tiTEfiCE aiGSElHEMCE TALK 
KEEPTALKlNG TALKAIOT hAvE QZZU W \HiO 

♦■•OOTO 75 

♦ H$ TAU 1 
BEAUTIPUL STARS CELEORATE 
V*« 50 TALK 3 

NOISY CHILDREN WORK HHlLE CROHCHY CHILDREN OUTPUT AS TRUE TRUTHS 

CELEORATE 

♦♦♦ 51 ♦♦♦ TALK 2 

TRUE BUGS CELEBRATE BECAUSE CRONCHY GURUS RETURN 
52 TALKALOT 2 

OVOlO GURUS SING If OEftUTlFUL GUGGLES SIKG WHILE GOOD POEHS RETURH SINCE 
OLD TURTLES HURT THOUGH NOISY LOVERS HORK BECAUSE GRONCHV GURUS LEARM 
SINCE OLD PROGRAMS FALL BECAUSE OLD GUGGLES FALL 

BEAUTIFUL LOVERS SING IF NOISV GUGGLES CELEBRATE AS INCREDIBLE PROGRAMS 
RETURH AND INCREDIBLE POtHS FALL ifET BEAUTIFUL GURUS FALL IF GOOD BUGS 
SING THOUGH BEAUTIFUL PROGPAHS RETURN 

♦ 53 KEEPTALt'lNG 

ABSTRACT BUGS SlNC UNTIL T»oE ToRTlES OUTPUT UNTIL NOISY POEMS LEARN 
BREAK 

I HAS AT LINE 10 IN CmOOSE 



tl It ■«■•> t\» titt IM tMW 
II ttll«.»l i«t>t 



TO TALKALOT : N' : 

10 IF :N:=0 STOP ELSE TALK RANDOM 

20 TALKALOT :N: 1 

END 



Figure 23. 
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LITTLKSIiNTBNCE 
GETVERB GRTNOUN 
RANDOMCHOOSE 

CHOOSE 



•♦DISPlAC "SlMPLtSEfiTENCL - 




SIMPLESENTENCE 
LITTLESENTENCE GETADJ 
GETVERB GETiNOUN RANDOMCiiOOSE 

CIIOOSO 



Figure 24. 
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KEEPTALKING 
TALK 

MAKEDICTIONARY BIGSENTENCE 
GETCON SIMPLESENTENCE 
LITTLESENTENCE GETADJ 
GETVERB GETNOUN RANDOMCHOOSE 
CHOOSE 



Figure 25. 
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5 » Hxamp 1 o 4 

The system of programs in this dribble file deals with the 
extrapolation of sequence. Given a number sequence such as 
1 2 3 4 , the system tries to ^'guess'* the next term so as to 
satisfy the user* It does this by trying out various extrapolat- 
tion procedures to see if any of them successfully extrapolate 
the known terms, i.e., extrapolate 1 to 2, 2 to 3, and 3 to 4 in 
the example given. If not, the system asks the user for the 
extrapolation procedure he was using and, after assuring that it 
successfully extrapolates the known terms, adds it to its growing 
repertory of trial procedures. 

These programs are developed in the first part of the dribble 
file (Figures 26 and 27). The system comprises seven programs: 
CASSANDRA, EXHCUTB, CHl:CK, SECOND, SCAN, SUCCESS, and CONTINUK. 
CASSANDRA (which is defined in lines ***2*** through ***9***) is 
the top level program. It starts by asking its user to type in 
a sequence. After accepting the sequence, it uses the procedure 
SCAN to search its existing extrapolation procedures (in 
rPROCBDURI: BANK:) to see if any of these successfully extrapolate 
the given sequence^ If so, it stops; otherwise, it asks the user 
to define the correct extrapolation procedure and, when done, to 
resume operation by calling the procedure CONTINUR. 

EXECUTE and SECOND (lines ***io*** through ***12*** and 
***20*** through ***22***) are small ut i 1 i ty procedures . EXECUTE 
rPROCEDURfi: : INPUT: performs the specified (single input) 
iPROCBDURE: witli the specified :INPUT: and outputs the result* 
SECOND :LIST: outputs the second element in the specified :LIST:. 
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CIIHCK :PROCni)UUl;: :SKQUKNCli: (Linos ***13*** through 

tests whethor the spocificd procedure successfully 
extrapolates the successive terms in the specified sequence. If 
so, At outputs "TRUir'j if not, '^FALSli". For example, consider 
the procedure ADDl whose output is 1 plus its input: 

TO ADDl :1NPUT: 

1 OUTPUT ( : INPUT: + 1) 

END 

CHOCK of ADDl "11 12 13" outputs "TRUE" ^since ADDl of 11 = 12 
and ADUl of 12 = 13) but CHECK of ADDl "2 4 6" outputs "FALSE" 
(since ADDl of 2 ^ 4) . 

SCAN :SEQUENCE: :PROCEDURES: (lines ***24*** through 
***33***) scans through the given list of extrapolation procedures 
one at a time with CHECK, to find v/hether one of these procedures 
successfully extrapolates the known terms in the given sequence. 
If so, it uses this procedure to extrapolate a next term and 
(using the procedure SUCCESS) determines whether or not the 
extrapolated next term is acceptable to the user. If unacceptable, 
it tries again with the remaining procedures. 

The procedure SUCCESS (Figure 27) simply asks the user whether 
the extrapolated next term is acceptable and outputs "TRUE" or 
"FALSE" accordingly, The last procedure in the set, CONTINUE, 
is called by the user after he inputs a new extrapolation procedure. 
CONTINUE asks for the name of the new procedure, uses CHECK to 
check its correctness on the given user sequence. If it is 
correct, it is added to the list of extrapolation procedures. 
At this point CONTINUE, as the most recently defined procedure, 
is displayed in mini-print at the lower left of the display. 
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Figure 28 shows the beginning of the student's execution of 
these procedures. The analyst begins reviewing the student's work 
with a $DOALL. Immediately a difficulty appears. The execution 
Of line ***53*** (which calls CASSANDRA to start the system) 
requires the user of the system to provide an inputs CASSANDRA 
types SKQUHNCli? . . . and waits for the user to type in a sequence. 
What is the analyst to do at this point? lie has two options 
he can provide his own input or ho can replicate the input used 
by the student in the next line of the dribble file. The analyst 
probably wants to see the student's input, even if he decides to 
use a different one. 

Thus, it is valuable for tlie analyst to have a facility for 
looking ahead in the dribble file to see the student's inputs on 
the next line (or lines if a multi-line input chain is involved). 
During this look-aliead process, execution should be suspended 
until the analyst has previewed as many lines as he wishes to see. 
And lie should be able to indicate which of these student input 
lines he will want to be ignored during the subsequent execution 
(because, for example, he wishes to replace these with his own 
inputs ) . 

Following the exemplars of user-defined analysis procedures 
described in Part 3, the analyst of this example has written such 
a lookahead procedure, called SLOOKAHEAD. The procedure is shown 
and discussed later; first we illustrate its use in the subsequent 
analysis. To suspend operation of the dribble file execution the 
analyst types BRBAK (on line 4 of Figure 28). LOGO responds (I 
WAS AT LING 20 IN CASSANDRA) and the analyst invokes the lookahead 
procedure by typing $LOOKAHnAD. 
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The procedure asks the analyst if he wishes to look ahead to 
the next line (MORn?»..). lie responds with YKS. Tho procedure 
then types dribble file lino ***54*** (prefixed with [[[[[ to 
indicate that it is a previewed line). This line is the student^s 
input sequence 12 3 4. The procedure then asks whether this lino 
is to be ignored during subsequent execution (IGNORE?.,.). The 
analyst responds YES. He is then asked whether he wants to look 
ahead to the next line (MORE?..,). He responds YES and is shown 
line ***55*** (which is the title line of the procedure ADDl, an 
extrapolation procedure being defined by the student). The 
analyst indicates that he does not wish to ignore this line. 
Then he responds NO to MORE?..., since he does not wish to look 
ahead any more at this point. $LOOKAHHAD then types **RnSUME 
AT ***53*** and continues piH'^cessing there, at the point where 
it had left off before. 

In response to SEQUENCE?... the analyst types 12 3 4, The 
program then asks for the definition of a procedure that generates 
that sequence (I CAN'T DO THAT ONE ...). The analyst invokes the 
next several lines of the dribble file, with a $DOALL. This 
enters tho student's extrapolation procedure ADDl, and then invokes 
(line ***59***) the procedure CONTINUE, which asks its user for 
an input (WHAT IS THE NAME OF YOUR NEW PROCEDURE?). 

At this point the analyst types BREAK to interrupt processing 
and calls SLOOKAHEAD to preview the next two lines in the file* 
These lines enter the name of the student's extrapolation procedure 
(ADDl) and ask for the list of student extrapolation procedures 
(PRINT iPROCEDURE BANK:) . The analyst then resures execution 
with a $DOALL, and executes the dribble file through line 
***62*** which calls CASSANDRA. After CASSANDRA'S request for 
the input of a sequence, the analyst once more BREAK'S (end of 
Figure 28) • 
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As shown in Figiu^os 29 and 30, he carries on the analysis 
of the student's work in this fashion using $LOOKAMIiAD extensively, 
throughout the rest of the dribble file. 

Figure 29 shows the student's trial of CASSANDRA with the 
sequences 1117 1118 1119 and 1 11 111 1111 and his definition of 
another extrapolation procedure, TAGl. Figure 30 shows a later 
portion of the dribble file, by which time the extrapolation 
procedures ADDl, TAGl, TAGLAST, and TIMES2 have been introduced 
(line ***95***). The last few lines show the student input of 
the sequence 1 2, his rejection of the extrapolated next term 3 
(which was generated by the extrapolation procedure ADDl), and 
his acceptance of the extrapolated next term 4 (generated by the 
procedure TIMES2) . 

The procedure $LOOKAHnAD, and its main s ubprocedures are 
listed in Figure 31, These are very transparent procedures. 
$L00KAIIUAD1 :N: processes the :N:th line ahead of the current one. 
If this line is not to be previewed (a negative response to 
MORE?,,,)> the lookahead process is terminated, and execution is 
resumed av the point wliere lookaliead started (after spacing two 
blank lines with $SKIP 2 to set off the interrupted execution 
lines). If this line is to be previewed, it is displayed by 
$DISP. If it is to be ignored during subsequent execution, the 
comment ^UGNORC is appended (using $ADD) to the contents of 
•'(dribble no) D^' (which denotes a fatal error, as described in 
the section of the User's GuiUe dealing with parsing). 

Figures 32 and 33 show the last part of the analysis. At 
the top of Figure 32 the analyst executes a $WlinRn to list all 
the procedures defined at the end of the student's session. The 
analyst then invokes $ALLDCSCR to list all tiie descriptors used 
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in the dribble file linos those have previously been entered 
in (dribble no) "B". The system responds with the single 
descriptor RECURSIVE. The analyst then executes $FINDLINns 1 
"ROCURSI VI;'' to list all lines, starting with line 1, which contain 
that descriptor. The system prints out the associated lines 
18, 27, 32, and 56. The analyst next prints ^'ROCURSIVH LIST: to 
list all recursive procedures. These are CHECK, SCAN, and ADDl. 

It is interesting to note that ADDl is listed as recursive 
because of a lack of sophistication in the procedure $EXAMrNEHL 
that generates the RECURSIVE descriptor. In dribble file line 
***56*** the ADDl title line was changed from TO ADDl to 
TO ADDl :N:. $BXAMINEEL simply sees the repeat of the procedure 
name ADDl in this line, failing to observe that this line 
supplants the original title line. 

The blank procedure forms $EXAMINEEL are filled in by the 
analyst to test whether a line is rocursing and, if so, to label 
it with the descriptor '^RECURSIVE" . The blank procedure form 
$NICEP is filled in by the analyst to search (dribble no) "B" 
descriptor lines for the descriptor "RECURSIVE" and to enter the 
names of procedures having such lines on "RECURSIVE LIST:. These 
procedures, along with the blank procedure form $NOTE, are listed 
in Figure 32. 

' :.$NOTE is filled in by the analyst to modify the display 
names of! 'recursive procedures by prefixing and suffixing them 
with **• With this modification, procedure structure diagrams 
explicitly label their recursive components. In Figure 33 the 
analyst has displayed the structures CASSANDRA and CONTINUE. 
These diagrams clearly show that the procedures SCAN and CHECK 
are recursive. 
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♦♦♦ 3 ♦♦♦ 10 TYPE • SEQUENCE?... " 

♦ H 20 am " SEOUENCE " REOUEST 

5 30 PRIHT : EMPTY : 

6 HO TEST SCAN OF : SEQUENCE : AHO s PROCEDURE DANK : 

♦ 7 ♦♦♦ 50 irtffUE STOP 

I GO PRINT • I CAN'T 00 THAT ONE. TELL hE HOH TO 00 IT ( OY 
OEFlHtNG A PROCEDURE FOR GENERATING THE SEQUENCE > . HHEN YOU'RE DONE 
PLEASE TVPE 'CONTINUE'. " 
♦♦♦ 9 ♦♦♦ END 

♦♦♦ 10 ♦♦♦ TO EXECUTE : PROCEDURE : AND : INPUT • 

♦♦♦ 11 ♦♦♦ 10 00 SENTENCE OF - OUTPUT " AND ( SENTENCE OF : PROCEDURE : 
AND : INPUT : ) 
♦♦♦ 12 END 

♦♦♦ 13 ♦♦♦ TO CHECK : PROCEDURE : AND : SEQUENCE : 
♦♦♦ 14 10 TEST EMPTVP OF BUtFIRSI OF • SEQUENCE J 
♦♦♦ 15 20 IFTRUE OUTPyT - TRUE ' 

IS ♦♦♦ 30 TEST IS t SECOND OF : SEQUENCE : ) EXECUTE OF ; PROCEDURE 
: AND C FIRST OF • SEQUENCE : ) 

17 ♦♦♦ HZ JFFALSE OUTPUT - FALSE * 
♦♦♦ IS SO OUTPUT CHECK OF • PROCEDURE : AND ( BUTFIRST OF j SEQUENCE 
i ) 

♦♦♦ 19 END 

♦♦♦ 20 ♦♦♦ TO SECOND : L»ST : 

♦♦♦ 21 10 OUTPUT flPST OF BUTFIRST OF : LIST : 

♦♦♦ 22 ♦♦♦ END 

♦♦♦ 23 ♦♦♦ TO SCAN : SEQUENCE : AND : PROCEDURES : 
♦♦♦ 2S ♦♦♦ 10 TEST EHPTvP OF : PROCEDURES : 
♦♦♦ 25 20 IFTRUE Ou'PuT - FAlSE - 

♦ 26 ♦♦♦ 30 TEST CHECJ^ OF ( FIPST OF ; PROCEDURES : ) AND : SEQUENCE : 
27 ♦♦♦ Srt. IPPALSE CuTPyT SCAN OF : SEQUENCE : AND ( BUTFIRST OK : 

PROCEDURES : ) 

*M 2t ♦♦♦ 50 HAKE ' NEXT TERM " EXECUTE OF ( FIRST OF : PROCEDURES : ) 

AND ( LAST OF : SEQUENCE : ) 

♦♦♦ 29 GO TEST SUCCESS OF : NEXT TERM : 

♦♦♦ 30 ♦♦♦ 70 IFTRUE PRINT SENTENCE " THE WINNING PROCEDURE HAS " ( 

FIRST OF : PROCEDURES : ) 

♦♦♦ 31 ♦♦♦ 80 IFTRUE OUTPUT - TRUE " 

♦♦♦ 32 ♦♦♦ 90 OUTPUT SCAN OF : SEQUENCE : AND ( BUTFIRST OF j PROCEDURES 
: ) 

♦♦♦ 33 ♦♦♦ END 



Figure 26. 
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3H 




TO SUCCESS • TEPH • 




35 




10 TVPE SE^JENCES IS ThC NEXT TERM - i TERM s ? ** 




}e 




?0 HAK'E • ANStiER " REOoESt 








30 TEST IS : Af<SiiEff t 'ES " 


««« 


n 




HO IfTPoE OuTPuT " l»oZ " 




3$ 




SO OOTPyT - ' 




40 




END 




HI 




TO CONTINUE 




H2 




10 TYPE " HHAT IS THE NAME OF YOUR NEW PROCEDURE? " 




43 




20 HAKE " NEW PROCEDURE " REQUEST 




44 




30 PRIHT : EHPTY : 




45 




HO TEST CHECK OF : NEH PROCEDURE : AND : SEQUENCE ; 




46 




SO IfFALSE PRINT SENTENCES " NO, " : NEH PROCEDURE : " 


HOT 


CEUeftAte THE SEOUCHCE THAT VOU CAVE ME, TRV VOUR PROCEDURE ON 



SUCCESSIVE TERMS AND VOU HlLL SEE THAT IT DOESN'T WORK. 

♦ 47 CO IFTRUE HA^'E " PROCEDURE OAN*< SENTENCE OF : PROCEDURE 

BANK J AND j NEW PROCEDURE \ 

Ht 70 IFTRUE PRINT " THANKS FOR THE NEN RULE. " 
«#00L1NE 

4$ END 

»- 

* 



|> tits 'i-ri! It Cfft €t T9« KU H^9vn^ 

o ten e ::< c# it*» r^^^^^J2tl tti it!M^ii 

II iriM UUT ni^i fU t4 itil 1*41.* 



Figure 27, 
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5) ♦♦♦ CASSftUORrt 
SEQUEHCC?.. . 
BREAK 

I WftS AT l\ni 20 Mi CASSANDRA 

♦■HOOKAHEAO 

t\0?.Z7. . .V£S 

fltCt*** 54 1 2 } s 

ICMORE?. . .VES 
MORE?. . .VE$ 

ttlll*** 55 TO ftODl 
tCHOftE?. . .KO 
HOHE?. . .no 

♦ ♦RESOUE AT*»» 53 M* 



SEOUEHCE?.,.! 2 3 H 

I CAN'T 00 THAT 0!JE. TELL HE HON TO 00 IT ( Of Olf \H\H(i A PROCEDURE FOR 
CEKERATING ThE SEOJEKCE ) , hOU'RC OOUE PLEASE TYPE 'COtJTlHUE', 

♦■•OOALL 

55 TO AOOl 

56 TITLE TO ADDl : M : 
♦ 57 1 OUTPoT : tl : ♦ i 

5S EliD 

59 CONTINOE 
WHAT IS THE NAME or >OUR OEH PPOCCDUi?E? 
BREAK 

I HAS AT LINE 20 IH CONTINUE 

♦■♦LOOKAHEAO 

HORE?. . , y 

CttCt*** 60 AODl 

|GHOREt,..V 

HORE?...Y 

tint*** ei PftlHT : PROCEDURE DANK : 
IGNORE?. . .N 
MORE?. ..U 

♦♦RESUME AT*** 59 ♦*♦ 



WHAT IS THE NAdE Or vOUR NEH PROCEDURE ?AODi 

THAflKS FOR THE NEH RULE. 
♦-♦DOALL 

♦ ♦♦ Gl ♦*♦ PRINT : PROCEDoPE BAN»' : 
ADDl 

♦** G2 ♦** CASSftNOPA 

sequence?. . . 
break: 

I fmS AT LINE 20 IN CASSANOPft 

Figure 28. 



ERIC 



4-4/1 



Report No. 2025 



Bolt Borunck and Nowninn Inc. 



♦vLOOKAHEAD 
HORE?...V 

tt([t*M 63 1117 illJ 111$ 

lOtiORE?. . .V 

f!OP£?...V 

tCCCC*** CH VES 
lG>iOI>E?. . .V 
MOHE?...V 

(({tCMIr OS M( CA$$ANO»A 

lG»iORE?...H 

MORE?. . M 

♦ ♦RESUME ATtM C2 ♦♦♦ 



SEOUEHCEt. . .1 2 3 4, 

IS THE HEXT TERM S ?VES 

THE UINHIKG PROCEDURE HAS AOOl 

♦■•OOALL 

♦ <r» 65 ♦♦♦ CASSAUORA 
SEOUEHCE?. . . 
eREAK 

I HAS AT LINE 20 IN CASSANDPA 

«-4tO0i^AH£AO 

MORE?, . .V 

ICttC**^ 66 1 11 111 nil 

ICH0RE?...Y 

HORE?..,V 

ttCtC^^* 67 «M TO TACl : N : 

IG(;0RE?,..H 

HORE?,.,H 

♦♦RESUME AT*** 65 



SEQUENCE?. ..Ill 111 nil 

I CAN'T 00 THAT ONE. TELL HE HOH TO 00 IT ( Bi^ OCriHlHG A PROCEDURE TOR 
GENERATING THE SEQUENCE ) . HHEN YOU'RE DONE PLEASE TYPE 'CONTINUE'. 
MOOALL 

♦♦♦ 67 ♦♦♦ TO TAGl : N : 
• ♦♦♦ G«' ♦♦♦ i OUTPUT ilOnO or ! H : AND I 
♦♦♦ 60 ♦♦♦ END 
*♦♦ 70 ♦♦♦ CONTINUE 

UHAT IS THE NAME OF YOUR NEH PROCEOUttE?, 



Figure 29. 
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♦•♦DOftLL 

♦ M <)5 ?RINT ! PROCCOORE QMr. i 
ftDDl TftGl TrtCLriST TlltES2 

♦ OS CAGCAJ/OPA 
SEQUENCE?. . . 

ORCAK 

1 llfiS ft! LINE 20 IN CflSSA?iDRA 

« • « 
» 4 I 
» • » 



SEOUEHCE?,,,e$ m 396 

IS THE NEXT TERM 7$2 ?YES 

THE »IW1HC PROCEDURE HAS TIHE$2 

MOOALL 

00 CASSAHPRA 
SEQUEKCE?. . . 

I HAS AT LlUl 20 IN CASSANDRA 

♦L»'OO^rAHEAD 

MORE?.. .V 

ttl(t*«* 100 I 2 
IGNORE?... Y 
MORE?. . , V 

tlltt«** iOl NO 
IGNORE?. . .V 
MORE?, ..Y 

(Ittl*** 102 vES 
IGNORE?. . .V 
HORE?..,y 

tCttC*** 103 SAVE CASS2 CASS2 

IGNORE?.., M 

HORE?.,.N 

♦♦RESUME AT^^^ 90 »♦♦ 



SEQUENCE?, ,.1 2 

IS THE »»EXT TERM 3 ?N0 

IS THE NEXT TERM H ?VES 

THE HINNINC PnOCEDUf»r UftS TIMES2 

♦♦OOALL 

♦♦♦ lOH ♦♦♦ lERASEALL 
♦♦♦ 105 ♦♦♦ 

♦-4 



Figure 30. 
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♦•LIST tfLOOKAHEAO 

TO «LOOKAHEAO 
10 HOOKAHCADl 1 
END 

HIST ♦LOOKAHEftOl 

TO «LOOKAH£AOl !U: 
10 TYPE -IIORE?...- 
20 TEST REQUEST 

30 IFFALSE PRINT SENTENCES "MttESUHE AT*M" sORlBDLE NOj 
SO IFFALSE tSKlP 2 

50 IFFALSE 00 THING SENTENCE :0RIB9LE NO: "N" 

eO IFFALSE STOP 

?0 TYPE -ttUl' 

80 COISP SOU :03lDaLE NO: :N! 

30 TVPE "IGNORE?.. 

ICO li" «VESP REOUEST «ftDO SENTENCE SUM :DRI00lE NO: :H: "0" 'IGNORE" 

110 4L0CXAHEAD1 SUM :N: 1 

END 

♦■LIST »V£SP 
TO ♦YESP :ANS: 

10 IF IS ;ANS: "V OUTPUT "TRUE" 
20 IF IS :ANS: "VES" OUTPUT 'TPUE' 
30 OUTPUT "FALSE" 
END 

♦■LIST OftOO * 
TO 4ADD :PLACE: ;11ES! 

10 HAKE :PLACE: SENTENCE THING :PLACE: :HES: 
END 



Fi gure 31. 



ERIC 



4-47 



Uoport No. 2625 



Bolt BoiMnok and Newmnn Inc. 



♦••HHERE 

AT ORIDOLE LINE tOS 
WHICH 1$ 

THE PROCEDURES CASSANDRA ExECUtE CHECK SECOND SCAN SUCCESS CONTIf^UE rJjDl 

TAftl TAGLAST TIHES2 HAVE BEEN OEf INEO 

♦■♦ALLOESCR 

RECURSIVE 

<-4FIH0mNF.S 1 "RECURSIVE' 
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LOGO REFERENCE MANUAL 



1 . A Look at LOGO 

We introduce LOGO by writing several small procedures. The 
following examples serve to show what LOGO "looks like". Several 
features are used without definition or even explanation, where 
we think their meanings are clear from context. All of LOGO is 
comprehensively described in later sections. 

LOGO, as an interpretive language, can execute single commands 
directly. Thus, 

■t- PRINT SUM OF 2 AND 2 (The user's typing is underlined) 

But, the most important feature of LOGO is that such commands 
can be incorporated in user-written procedures. The definition 
of any procedure results in an object which is treated Just like 
any primitive. Thus, in a very real sense, as the user writes 
his own procedures, he is gradually extending the basic language 
to more exactly fill his needs. 

A very simple (although by no means simplest) procedure, for 
example, prints the double of its input. 

TO DOUBLE /N/ 

10 PRINT SUM OF /N/ AND /N/ 
END 

This procedure, DOUBLE, is now "part" of LOGO. 

■♦• DOUBLE 125 
246 

-^ DOUBLE WORD OF 1 AND 1 
22 

If the concatenation of DOUBLE with other procedures is desired, 
DOUBLE should OUTPUT rather than PRINT its results; OUTPUT mean- 
ing that the result is given to the calling procedure. The 
modified procedure is: 

TO DOUBLE /N/ 

10 OUTPUT SUM OF /N/ AND /N/ 
END 

This new version of DOUBLE can be used in direct commands, 

- ^PRINT DOUBLE DOUBLE DOUBLE 3 
2'+ 
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or can be used as the basis for other procedures, 
TO QUADRUPLE /N/ 

10 OUTPUT DOUBLE OF DOUBLE OF /N/ 
END 

and so on. This very natural use of functions in LOGO is partic- 
ularly valuable, since to program a problem a user can keep on 
breaking it up until he sees subproblems which he feels will be 
easy to program. This heuristic is used by .sophisticated 
problem-solvers generally, whether or not computer programming 
is involved. 

An extension of this LOGO facility for using procedures in 
defining other procedures is its ability to handle recursive 
procedure definitions. The recursion can be a linear one, which 
is equivalent to iteration, as in the following procedure which 
calculates the factorial function: n! = n • (n-1) 2*1. 

TO FACTORIAL /NUMBER/ 
10 TEST IS /NUMBER/ 1 
20 IF TRUE OUTPUT 1 
30 OUTPUT PRODUCT OF /NUMBER/ AND 

(FACTORIAL OF DIFFERENCE OF 

/NUMBER/ AND 1) 

END 



■t- PRlNT FACTORIAL OF 100 
93 326 2 15't439't 41 526 81699 238 8 5626 6 70049071 5968 26i*381 621 46859 296389521 
7599993229915608941463 9 76156518 28625369 79208 27223758251185210916864 
000000000000000000000000 

LOGO makes few distinctions between numbers and more general types 
of string. Thus, a procedure to reverse a string looks very much 
like FACTORIAL. 

TO REVERSE /STRING/ 

10 TEST IS /STRING/ /EMPTY/ (The reverse of the empty string 

20 IF TRUE OUTPUT /EMPTY/ is the empty string.) 

30 OUTPUT WORD OF LAST OF /STRING/ (The reverse of the nonempty 

AND (REVERSE OF BUTLAST OF string is the string formed by 
/STRING/) following the last character by 

END the reverse of the rest of the 

string . ) 

("AND", "OF", and parentheses are optional "noise words" for 
convenience in writing expressions.) 

<- PRINT REVERSE OF " JABBERWOCKY " 
YKCOWREBBAJ 



(1! H 1) 

(n! = n • (n-1) !) 
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2. The LOGO Language 
2.0 Mechanics 



To start using LOGO, a person must establish communication with 
the computer and specify that he wishes to work with LOGO. The 
conventions for doing this vary from system to system and are, 
therefore, outside the bounds of this manual. 

To Indicate that It Is ready for use, LOGO types a back-arrow (+) 
either Immediately or In response to the pressing of the key 
labeled "RETURN". This means that LOGO Is ready to receive an 
Instruction line. After the user types In the desired line, he 
again presses the RETURN key. This action returns the carriage 
and gives the command line to LOGO for execution. The LINE PEED 
key also returns the carriage, but does not cause command execu- 
tion; thus an arbitrarily long Instruction can be entered. 

The typing of a line may be aborted at any time by pressing the 
key labeled "RUB OUT". 

The key labeled "BREAK" is used to stop the execution of the 
current instruction and return control to the user. 

The use of LOGO is terr.inated by typing the command "GOODBYE" or 
Its abbreviation "GB" . 

Other LOGO system facilities, such as erasing, editing, and 
filing, are discussed in the section on program manipulation. 



2.1 LOGO Objects and the PRINT Command 

LOGO contains two kinds of objects, LOGO words and LOGO sentences. 
A LOGO word is an arbitrary string of printing teletype charac- 
ters excluding quote marks. A LOGO sentence is an arbitrary 
string of LOGO words, separated by spaces. If a user types 
multiple spaces between words of a LOGO sentence, all but one 
are automatically eliminated. 

To simply print a LOGO object on the teletype, the PRINT command 
is used. 



■^ PRINT "Y ! iRCHNttLK" (a LOGO word) 

Y 1 !RCHN4LK 

-*- PRINT "32tt23" (a LOGO word) 
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-^- PRINT '>H1 THERE LOGO'^ (a LOGO sontonco) 

HI THERE LOGO 

^PRLNLJ!!!. (the '^empty'^ object) 

(prints out an empty line) 

■4- 

LOGO objects are delimited by quote marks. If a word is not so 
delimited, it is taken as a LOGO command or operation. Integer 
objects are an exception — for these, quotes are optional. 

-S PRINT 123^50 
123^50 



2. 2 Constructing a Procedure 

Using the "built-in" LOGO commands and operations, such as PRINT, 
we construct procedures either to manipulate LOGO objects or to 
produce some desired external effects. For example, a LOGO 
procedure for drawing a small triangle out of + marks Is: 

-^- TO TRIANGLE 

> 5 PRINT 

> 10 PRINT '^ + -t-" 

> 32 PRINT ^^-t--!--!-" 

> h0 PRINT "-t--t--t--t-'' 

>ENO 



To get LOGO to perform this procedure, we merely type the proce- 
dure name: 

-t- TRIANGLE 
+ 

+ + 
++ + 
+ + ++ 



A procedure definition includes three different kinds of lines. 
The first line of the definition is called the title line. It 
begins with the LOGO command TO which indicates to LOGO that we 
are writinf^ a procedure whose name immediately follows. (TO is 
not part of the procedure name.) The procedure name must not be 
a command or operation currently used by LOGO. (This excludes 
built-in commands like PRINT as well as user-defined procedures 
in the current workspace.) And, like the LOGO built-in commands 
and operations, procedure names must not contain quotes or 
slashes . 
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After reading the title line, LOGO types back the wedge mark (>). 
This Indicates that It Is ready for the next line of the defini- 
tion. The actions of the procedure are specified by the instruc- 
tion lines immediately following the title line. Each of these 
is prefaced by an integer, a line Kumber, Following the line 
number is the instruction itself, such as a LOGO command. The 
instructions are not executed during this definition phase — 
they are merely entered, checked for local syntax errors, and 
stored away for subsequent execution. Later, when the procedure 
is to be performed, LOGO will execute these instruction lines In 
Increasing order, by line number, even if they are not set down 
in such order. The END line indicates the close of the definition. 

2 . 3 Procedures With Inputs 

The procedure TRIANGLE always has the same effect. This contrasts 
with the built-in PRINT command whose effect varies with its 
input. As well as procedures with no inputs, like TRIANGLE, we 
can write procedures that have inputs, for example the following 
one: 

TO PSYCH /ANYTHING/ 

10 PRINT "WHY 00 YOU SAY" 

20 PRINT /ANYTHING/ 

30 PRINT "?" 

END 

To use PSYCH, we must give it^ one input: 

-^P SYCH "YOUR NAME IS ELIZA" 
WHY DO YOU SAY 
YOUR NAME IS ELIZA 
? 



-^ PSYCH "2^-2 = ^" 
WHY DO YOU SAY 
2+2 = 4 
? 



By adding a word or sentence enclosed within slashes — a place- 
holder or dummy input -- to its title line, we denote that PSYCH 
requires one input. When PSYCH is used, LOGO replaces the dummy 
input, wherever it occurs in the procedure definition, by the 
desired input (such as "2+2='4"). 
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We write and use procedures with more than one Input along 
analogous lines. For example: 

^TO-REV^RSE /FIRST/ /SECOND/ /THIRD/ 
10 PRINT /THIRD/ 
20 PRINT /SECOND/ 
30 PRINT /FIRST/ 
END 

REVERSE needs three inputs. 

-■- REVERSE "A" "B" "C" 

C 

B 

A 

-^ REVERSE "ABC" 

THERE ARE 2 INPUTS MISSING FOR REVERSE 

In the second example, we typed only one input. (When an illegal 
instruction is attempted, LOGO responds with an appropriate error 
message. A list of such messages is included in Section 3.5.) 

2.4 LOGO Operations 

A LOGO aommand (such as PRINT, TO, END, and GOODBYE) always results 
in some external action. For example, PRINT causes its input to 
be printed on the teletype. An operation , however, passes on a 
LOGO object for further use within LOGO. For example, the LOGO 
operation SUM requires two inputs (integers), and outputs their 
sum. This new object can either be used as an input for PRINT, 
if we wish to have it typed, or as an input to a LOGO operation 
or procedure. 

■S PRINT PRODUCT OF 2 AND 7 
Ik 

■^ PRINT PRODUCT OF 2 AND (SUM OF 3 AND ^4) 
1^4 



Here, the output of SUM, 7, is one of the two inputs to the opera- 
tion PRODUCT which, in turn, passes its output, 14, to PRINT. 
[OP and AND are completely optional and are used only to improve 
clarity and readability of expressions for the user. OF may be 
used after any command, operation, or procedure name. AND may be 
used between inputs. Balanced parentheses also may be used to 
improve readability. (See the section following on composition.)] 
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LOGO includes operations of different kinds, for example, those 
for concatenation and decomposition given below. 

Concatenati on 

WORD concatenates two given words, its inputs, to form a new word 
as its output. SENTENCE concatenates its two inputs, either 
words or sentences, to form a new sentence as its output. 

•S PRINT WORD OF "UP" AND "DOWN" 
UPDOWN 

•♦- PRINT SENTENCE OF "UP" AND "DOWN" 
UP DOWN 

•S PRINT SENTENCE OF "GO MAN" AND "GO" 
GO MAN GO 

•S PRINT WORD OF "GO MAN" AND "GO" 

THE INPUTS TO WORD MUST NOT BE SENTENCES 



Decomposi ti on 

FIRST outputs the first character of its input, if the input is 
a word (or the first word, if the input is a sentence). BUTFIRST 
outputs everything but the first of its input (i.e., the second- 
through-last characters of word inputs, or the second-through- 
last words of sentence inputs). LAST and BUTLAST are defined 
similarly . 

■^ PRINT FIRST OF "CAT" 
C 

•S PRINT BUTFIRST OF "CAT" 
AT 

•^ PRINT LAST OF "CAT" 
T 

•SPRINT BU TLAST OF "CAT" 
CA 

•S PRINT FIRST OF "FEE FIE FOE FUM" 
FEE 

•S PRINT BUTFIRST OF "FEE FIE FOE FUM" 
FIE FOE FUM 

•^ PRINT LA ST OF "A" - ■ 

A 

•^ PRINT BUTLAST OF "A" 

(LOGO prints the empty word) 
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The output of FIRST or LAST is always a LOGO word. The output 
of BUTPIRST or BUTLAST, however, is of the same type (i.e., LOGO 
word or sentence) as its input. This means that a single word 
can sometimes be a LOGO sentence. Thus, the output of BUTPIRST 
OP "THE CAT" is the LOGO one-word sentence "CAT". 

•t- pRlNT FIRST OF BUTPIRST OF "THE CAT" 
CAT 



Ar1 thmetl c 

The operations SUM, DIFFERENCE, PRODUCT, and QUOTIENT take two 
Inputs, which must be integers, and output the designated arith- 
metic result. The operation RANDOM has no input and outputs a 
digit between 0 and 9 generated in a pseudo-random manner. 

-t- PRlNT SUM OF 2 AND 98 
100 

-t- PRlNT DIFFERENCE OF 2 AND 98 
-96 

-f pRINT PRODUCT OF 17 AND 5 
85 

-t- pRINT QUOTIENT OF 17 AND 5 

3 (the integer quotient) 

-«- pRINT RANDOM 

8 

^- PRINT RANDOM 
2 



Other LOGO "built-in" operations are described later. 



2 , 5 Composi ti on 

The inputs of LOGO operitlons do not have to be literal LOGO 
objects like "CAT" or "39". Instead, as we saw, they may be 
outputs of other operations. The following examples illustrate 
how operations can be composed or "chained". 

•«-P RINT SENTENCE OF "A B" AND WORD OF "CD" AND "E" 
A B CDE 

•*-P RINT LAST OF (FIRST OF "THE CAT") 
E 

•*- PRlNT DIFFERENCE OF (WORD OF 11 AND 22) AND 122 
10^ - 
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Let's consider how LOGO scans and executes these composite Instruc- 
tions by considering the first example above. LOGO scans an 
instruction line word-by-word from left to right. During the 
scanning process it identifies each element and notes its type. 
Thus : 



ELE MENT TYPE 



(1) 


PRI NT 


Command, needs one input 


(2) 


SENTENCE 


Operation, needs two inputs 
"Noise" word 


(3) 


OF 


Ci) 


"A B" 


LOGO sentence literal 


C5) 


AND 


Noise word 


(6) 


WORD 


Operation, needs two inputs 


(7) 


OF 


Noise word 


C8) 


"CD" 


LOGO word literal 


(9) 


AND 


Noise word 


(10) 




LOGO word literal 



After the input xlne is scanned, LOGO returns to the beginning 
of the line and exeoutea it as follows: 

(1) Fetch the first element PRINT. Its one input remains to be 
found: fetch the next element. 

(2) PRINT'S one input will be the output of SENTENCE. SENTENCE, 
in turn, needs two inputs: fetch the next element. 

(3) OP is a noise word, legal in this context. Ignore it. 
We are still looking for two Inputs. 

(h) "A B" is an acceptable first input for SENTENCE. The second 
input needs to be found for SENTENCE: fetch the next element. 

(5) AND Is a noise word, legal in this context. Ignore it. 
One input remains to be found for SENTENCE. 

(6) SENTENCE'S second input will be the output of WORD. WORD, 
in turn, needs two inputs LOGO words: fetch the next 
element. 

(7) OP is a noise word, legal here. Ignore it. We are still 
looking for two Inputs for WORD. 

(8) "CD" is an acceptable first input for WORD: fetch the next 
element. 

(9) AND Is a noise word, legal here. Ignore it. We are still 
looking for the second input for WORD. 
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(10) "E^' is an acceptable second input for WORD. There are no 
furtl-^er inputs being sought. 

(11) WORD outputs '^CDK^^ to SENTENCE as its second input. 

(12) . SENTENCE outputs '^A B CDE^' to PRINT as its one input* 

(13) PRINT causes A B CDE to be printed on the teletype page* 

(14) The processing of the line is complete. LOGO returns 
control to the user. 

This process can be regarded perhaps more conveniently as a 
successive simplification of the original line as the outputs oS 
various operations are determined. As an illustration, consider 
the following example: 

SPRINT PRODUCT OF SUM OF 2 AND 3 AND DIFFERENCE OF ^4 AND 5 AND 6 

Unlike before, we immediately remove all noise words, thus 
obtaining: 

^PRINT PRODUCT SUM 2 3 DIFFERENCE ^4 5 6 

We again go word-by-word from left to right. Finding upon reach- 
ing the 3 that we can complete the execution of SUM, we do so, 
obtaining : 

^PRINT PRODUCT 5 DIFFERENCE ^4 5 6 

This execution of SUM does not permit any previously encountered 
operations to be executed so we keep on going to the right. We 
find that we can next complete the execution of DIFFERENCE. . 
Doing this, we obtain: 

^PRINT PRODUCT 5-16 

Again, looking back at previously encountered operations, we find 
that PRODUCT can now be executed, This results in: 

^PRfNT -5 6 

Looking back once more, v^e find we can execute PRINT. We do so, 
thereby obtaining the printout -5. Since the first command on 
the original line has been executed, we deem the execution of 
the line to be complete. There IZy however, something remaining 
on the line and th? s causes LOGO to print the error message: 

•'6»' IS EXTRA 

LOGO then returns control to the user. 
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Parentheses 



Parentheses may be used in instructions to set off any expression 
that is, or can be used as, a LOGO input, The following examples 
of such use are valid: 

^PRINT SUM (2) 3 
^PRINT SUM 2 (3) 
^PRINT (SUM 2 3) 
^(PRINT SUM 2 3) 

All these instructions cause the printout 5. 

The following examples show some invalid uses of parentheses. 

^PRINT (SUM) 2 3 
^PRINT (SUM 2) 3 
^PRINT SUM (2 3) 

None of the above parenthesized expressions are meaningful LOGO 
inputs. The attempted execution of these lines will cause LOGO 
to print error messages such as MATCHING {? and MISSING )?. 

Two infix expressions such as 

2 + (3 X t+) and (2 + 3) X 4 

whose operations and inputs occur in the same order, but which 
are differently parenthesized, yield different results. Thus, 
the use of parentheses can change the order of evaluation of 
infix expressions. This is not so with LOGO prefix expressions. 
So long as parentheses are used correctly — that is, to enclose 
inputs or possible inputs — they cannot change the result of 
evaluating any LOGO prefix expression. 



2 . 6 Procedures With Outputs ^ 

LOGO operations, by definition, output when they are executed. 
LOGO procedures can be written which output in Just the same way 
as operations. To do this, the one-input LOGO command OUTPUT 
is used, Its use is illustrated: 

TO DU88LE /SOMETHING/ 

10 OUTPUT WORD OF /SOMETHING/ AND /SOMETHING/ 
END 

4- PRINT DUBBLE "TROUB LE*' 
TROUBLETROUBLE 
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Note that, as in the case of built-in operations like FIRST or 
SUM, we need to preface DUBBLE with PRINT to cause the output 
of DUBBLE to be typed. In line lj3 of DUBBLE, OUTPUT causes the 
resu\t of execution of its line tote passed-back as an input 
to the PRINT command which called DUBBLE. The LOGO command 
OUTPUT takes a single input and passes this back as an input to 
the command, operation, or procedure which called the present 
procedure. OUTPUT then causes resumption of the execution of 
the line to which it returned its input. At this point the 
outputting procedure effectively vanishes. Clearly, the command 
OUTPUT can only be used within a procedure. 

User-defined procedures which output can be composed in the same 
way as built-in operations. Thus: 

•«- PRlNT SUM OF DUBBLE 3 AND h 
37 

•"- PRINT DUBBLE DUBBLE DUBBLE "B" 
BBBBBBBB 

•^ TO QUADRUBBLE /STUFF/ 

> 10 OUTPUT DUBBLE OF DUBBLE OF /STUFF/ 

> 20 PRINT "I AM ALL DONE" 

> END 

QUADRUBBLE DEFINED 
■S PRINT QUADRUBBLE OF "NO" 
NONONONO 

In the last example note that the command in line 20 vjas not 
executed. The OUTPUT in line 10 terminated the execution of 
ouADRUDBLF. as it passed back "NONONONO" to PRINT'. Thus we now 
have two means of terminating a procedure, either by 
the END cor.mand or the OUTPUT command. 



2 . 7 Nami ng 

A :.000 object can be given a name by use of the MAKE corrir.ana. 

rakes tv;c inputs and makes the first the name of the secor.i 

Thus : 

*- HAKE "DIGIT" "TOE" 

We ^ say that "DIGIT" is the nane of "TOE" and that "TOE" is the 
thing of "DIGIT". To retrieve the thing of a name, we use the 
one-input LOGO operation THING. Thus: 

^ PRINT THING OF "DIGIT" 
TOE 



So that a name refers to precisely one thing at any time, MAKE 
replaces the old thing of the name by the given new thing, the 
second Input of MAKE. For example: 

■h MAKE (word of "DIG" AND "IT") (SENTENCE OF "BIG" AND "TOE") 
■♦- PRINT THING OF "DIGIT" 
BIG TOE 

Note that the previous thing of "DIGIT", "TOE", has been replaced 
by "BIG TOE". 



Initially, the empty thing, "", is taken as the thing of any LOGO 
name. Therefore: 

•SPRINT THING OF "ABRACADABRA" 



(The thing "" has been printed.) 

For introductory purposes, an extended form of MAKE is available. 
This is used by pressing the return key directly after typing In 
the word MAKE. LOGO will then type NAME: and wait for the user 
to type in the desired name and press the return key. LOGO then 
responds by typing THING:. After the user types the desired 
thing and presses the return key, the command is executed In 
exactly the same way as the standard form. Thus: 

•^ MAKE 

NAME : 

THING: "2" 



•S PRINT THING OF "1" 
2 



Because of the special importance of names, LOGO provides a 
shorthand notation for the operation THING. /IRVING/ means 
precisely the same as THING of "IRVING". Thus: 

^- PRINT SUM OF /!/ AND /!/ 



We have already encountered the use of slashes as delimiters for 
LOGO dummy inputs within ' procedure def inltionrj . For example: 
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TO PYTHAGORAS /It/ /%%/ 

10 PRINT SUM CPROOUCT /«/ /II/) (PRODUCT /HII/ /H/) 
ENP 

When a procedure Is executed, the occurrence of clashed objects 
In the title line results in implicit MAKE executions. Each is 
given as its thing the actual input in the corresponding position 
following the procedure name. For example, typing the command 
pyyHAGORAS 3 ^ results in the name "if" being given the thing "3" 
and' the name "^/S"' being given, the thinp; /.../ means 

THING OF whether the assignment was made by a procedure 

call or a MAKE command. 

The names made by implicit MAKEs as a result of the execution of 
a title line have a special status. These names vanish from 
the list of names currently known to LOGO upon termination of the 
procedure. This is true even if the initial assignment of a thing 
to a dummy name is changed by a MAKE within the procedure. 

TO SHOW-OFF /M/ /N/ 

10 PRINT SENTENCE OF "M IS" /M/ 

20 PRINT SENTENCE OF "N IS" /N/ 

END 

<- SHOW-OFF "TURTLE" "EGGS" 
M IS TURTLE 
N IS EGGS 
•S PRINT /M/ 

•S PRINT /N/ 

( A 

^ / 

If a dummy name is already known to LOGO, LOGO sets up a special 
version of the name expressly for use within the procedure. As 
before, each dummy name is given as its thing the corresponding 
input. Thus; 

•♦- MAKE "M" "IRVING" 

•^ SHOW-OFF "EGGS" AND "TURTLE" 

M IS EGGS 

N IS TURTLE 

•«- PRINT /M/ 

IRVING 



Such special treatment is given to a dummy name independently in 
each procedure where it occurs. Thus: 
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TO SHO /A/ 

10 PRINT SENTENCE "/A/ IS" /A/ 

20 SHOO (BUTFIRST OF /A/) 

30 PRINT SENTENCE "/A/ IS" /A/ 

END 

TO SHOO /A/ 

10 PRINT SENTENCE "/A/ IS" /A/ 
20 SHOOO (BUTFIRST OF /A/) 
30 PRINT SENTENCE "/A/ IS" /A/ 
END 

TO SHOOO /A/ 

10 PRINT SENTENCE "/A/ IS" /A/ 
END 



■^•SHO 




START" 


/A/ 


IS 


START 


/A/ 


IS 


TART 


/A/ 


IS 


ART 


/A/ 


IS 


TART 


/A/ 


IS 


START 









(Printed by SHO. At this point 

there is only one /A/) 
(Printed by SHOO. Now there are 

two versions of /A/) 
(Printed by SHOOO. Now there are 

three versions of /A/) 
(Printed by SHOO. Two versions of 
/A/ remain since SHOOO has finished) 
(Printed by SHO, Only one version 

of /A/ is left) 

(All versions of /A/ have vanished) 



2.8 Conditi onal Opera ti ons 

LOGO includes a number of operations called predicates, whose 
outputs are one of the words "TRUE" or "FALSE". NUM3ERP is 
the LOGO number predicate. 

-<- PRINT NUMBERP OF "7 7 7" 
TRUE 

-SPRINT NUMBERP OF '^SEVEN^' 
FALSE 

-^ PRINT NUMBERP OF WORD OF 2 AND 2 
TRUE 



WORDP and SENTENCE? are the LOGO word predicate and LOGO sentence 
predicate: 
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•S PRINT WORDP OF 711 
TRUE " 

•S PRINT WORDP OF "WORDS WORDS WORDS" 
FALSE ' " 

■S PRINT SENTENCEP OF "l C A R U S" 
TRUE ~ 



Two useful predicates requiring two Inputs are the identity 
predicate, IS, and the predicate OREATERP for comparing two 
numbers. IS outputs "TRUE" if its Inputs are the same, and 
"FALSE" if they are different; GREATER? outputs "TRUE" if its first 
input is stvictly greater than its second input, and "FALSE" 
otherwise . 



•S PRINT IS SUM OF 2 AND 2 '"4" 
TRUE 

•S PRINT IS SUM OF 2 AND 2 "0tt" 
FALSE 

•<- PRINT GREATERP 2 2 
FALSE 



Some predicates require one of the v/ords TRUE" or "FALSE" as 
inputs. These include the conjunctive predicate BOTH and the 
disjunctive predicate EITHER. BOTH outputs "TRUE" if both of 
its inputs are "TRUE"; EITHER outputs "TRUE" if either one or 
the other or both of its inputs are "TRUE". 

t- PRINT BOTH CIS WORD OF "2" AND "2" "22") AND (NUMBERP OF "SEVEN ") 
FALSE ~ 
t- PRINT EITHER (GREATERP 2 3) AND (WORDP OF "FALSE") 
TRUE 



A predicate's output can be tested for "TRUE" or "FALSE" and 
subsequent instruction execution can be made to depend upon the 
result. LOGO provides a command, TEST, to facilitate such tests 



•*-TEST IS "1" "1" 
•^- IF FALSE PRINT "1 IS NOT 1 
•^• [F TRUE PRINT "IT IS!" 
!T IS! 
^-IF TRUE 



PRINT "YES YES YES' 



YES YES YES 



(Clearly true) ' 

(So this line is not executed) 

(But, this one is) 

(And this one also) 



ERIC 



-16- 



TEST takes one Input which must evaluate to "TRUE" or "FALSE". 
Its effect is to mark a "truth flag" correspondingly (i.e., to 
true or false). The associated command IP TRUE takes an instruc- 
tion line as input and executes this line only if the truth flag 
is marked true. (Similarly with IP PALSE, when the truth flag is 
marked false.) Note that IP TRUE and IP PALSE take oommand lines 
as inputs — in this respect they are different from other LOGO 
commands. 

Using TEST a4:id IP TRUE, new predicates can be defined by LOGO 
procedures. Thus: 

■«- T0 NOT /INPUT/ 

> 10 TEST /INPUT/ 

> 20 IF TRUE OUTPUT "FALSE" 

> H OUTPUT "TRUE" 

> END 

NOT DEFINED 

■♦- PRINT NOT IS "1" "2" 

TRUE 



2.9 . Recursion 

A procedure may use another procedure in its definition, as we 
saw in Section 2.6 where QUADRUBBLE was defined using DUBBLE. 
An even more powerful capability comes about by using a procedure 
in its own definition. An example of such a self-referential, or 
i>e<3Ui>sive i procedure is the following one, FIND, which outputs 
the /N/th element of /LIST/. 

^-TO FIND /LIST/ /N/ 
>10 TEST IS /N/ 1 

>20 IF TRUE OUTPUT (FIRST OF /LIST/) 
>30 OUTPUT FIND OF (BUTFIRST OF /LIST/) 
AND (DIFFERENCE OF /N/ AND 1) 

>END 

-^PRINT FIND OF "Z Y X W" AND 1 
Z 

'■^ PRINT FIND OF "Z Y X W" AND 3 
X 



FIND outputs immediately only in the case where /N/ is 1. It 
reduces all other cases to that one by creating a number of 
distinct copies of FIND. For the last example shown, three 
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separate copies of FIND were used for execution of that instruc- 
tion. The process was as follows: 

The command line is: 

PRINT FIND "Z Y X W" 3 
PRINT needs one input, so the execution goes to the next element 
on the line, which is FIND. Two literal inputs follow FIND, so 
FIND is exGcuted line by line. Line 30 of FIND with the current 
inpvits is 

30 OUTPU, , IND "Y X W" 2. 
Thus, in order to finish execution of our original procedure 
FIND, we must perform FIND "Y X W" 2. A new copy of FIND, let 
us denote it (for ourselves) as FIND*, is used for this purpose 
and this copy is given Inputs "Y X W" and 2. When line 30 of 
FIND* is reached, we have 

30 OUTPUT FIND "X W" 1 . 
Thus, still another copy of FIND is required, which we call 
FIND**, with inputs "X W" and 1. The execution of FIND** results 
In an output of "X" to FIND* (since the value of /N/ for this 
copy is 1) and FIND** "vanishes". FIND* now outputs "X" to 
FIND, which outputs "X" to PRINT. 

We can display this sequence of successive procedure calls with 
the Inputs and output associf.ted with each of them in a compact 
way using the LOGO command TRACE. We indicate that we wish to 
TRACE the procedure FIND in its subsequent executions as follows. 

■t- TRACE FIND 

*■ (LOGO puts a trace on FIND and 

returns control to the user) 

The effect of TRACE is illustrated next, using the example Just 
discussed . 

•«-PRINT FIND OF "Z Y X W" AND 3 



FIND OF "Z Y X W" AND "3" 
FIND OF "Y X W" AND "2'' 
FIND OF "X W" AND "1" 
FIND OUTPUTS "X" 
FIND OUTPUTS "X" 
FIND OUTPUTS "X" 
X 



(This is our FIND*) 

(Our FIND**, the third copy of FIND) 
(FIND** outputs to FIND*) 
(FIND* outputs to FIND) 
(FIND outputs to PRINT) 
(PRINT prints "X") 



Note that TRACE prints the title line of each TRACEd procedure 
invoked, listing the inputs it is called with, and note that it 
prints a new line each time a procedure outputs or ends. The 
title line and output line of each procedure are indented the ' 
same number of spaces. 
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In the procedure FIND the execution of the command OUTPUT 
requires invoking and executing another copy of the procedure. 
In some recursive procedures the execution of other operations 
in the recursion line may be deferred as well. One such proce- 
dure is COLLAPSE, which takes a sentence and collapses it into a 
word , 

•♦-TO COLLAPSE /S/ 

>10 TEST IS /S/ /EMPTY/ (/EMPTY/ denotes the empty LOGO object, 
>20 IF TRUE OUTPUT /EMPTY/ 
>30 OUTPUT WORD OF (FIRST OF /$/) AND 
(COLLAPSE OF BUTFIRST OF /S/> 

>END 

■S PRINT COLLAPSE OF "CAN YOU READ ME" 
CANYOUREADME 

In the recursion line of COLLAPSE, line 3)3, the execution of the 
operation WORD, as well as the command OUTPUT, must be deferred. 
This is shown in the following trace. 

•^ TRACE COLLAPSE 

•^ PRINT COLLAPSE OF "MARES EAT OATS" 
COLLAPSE OF "MARES EAT OATS" 
COLLAPSE OF "EAT OATS" 
COLLAPSE OF "OATS" 
COLLAPSE OF "" 
COLLAPSE OUTPUTS "" 
COLLAPSE OUTPUTS "OATS" 
COLLAPSE OUTPUTS "EATOATS" 
COLLAPSE OUTPUTS "MARESEATOATS" 
MARESEATOATS 



T!ae same form of recursion used with COLLAPSE was shown in 
Section 1 in the definitions of FACTORIAL and REVERSE. More 
complex and powerful forms of recursion can be created by the 
advanced user. These can even include recursions which are not 
reducible to iteration, such as the Ackerman function (the 
generalized exponential function used in recursive function 
theory ) . 
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3. Program Manipulation 



Up to now we have studied only those parts of the LOGO language 
necessary for writing executable LOGO programs (the operations, 
commands, names, etc., and the rules governing their relations 
and usage). This chapter deals with those facilities of LOGO 
that aid a user in his programming work at the computer terminal. 
These include listing, editing, erasing, abbreviating, storing, 
and retrieving* 



3 J Ed1t1 ng 

A. Editing a Line 

There are a number of ways to modify the instruction line being 
typed in, at any time before the carriage return key Is pressed. 
This "editing" capability works with both direct instruction 
lines and those which are part of a procedure definition.' 

If the backslash character " is pressed, this character is 
typed and its effect is to erase the character preceding it. 
The backslash can be typed more than once to effect multiple 
erasures. Thus: 

-^ PINT S\>R1NT ^\ 5 
4 



Pressing the CTRL key and W simultaneously results in a number 
of backslashes being typed, sufficient to completely erase the 
preceding LOGO word* Denoting this action by , then: 

-S PRINT '^THE QUj^KW^ •\\^ yjUICK 8R0WN FOX" 
THE QUICK BROWN FOX 



The more drastic action of pressing the RUBOUT key erases the 
entire line, To show this has been done, the computer erases out 
the back arrow (-^) preceding the "rub bed out" line, using a #. 
Denoting this editing action by (RUBOU^, then: 

4 PRINT "THE QUICK BROOW ( RUBOUT) 
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B. Editing a Procedure 

There are several editing commands which can be used only while a 
procedure is being defined, (The computer indicates that we are 
in the process of defining a procedure by typing a '^>" rather 
than a when it is ready to receive the next line*) The 
command EDIT, followed by a procedure name, is used to modify 
the definition of a previously defined procedure. LOGO responds 
to this command by typing a to indicate that we are again in 
defining mode. After the desired changes have been made, the 
command END terminates the procedure definition Just as before. 

Inserting a Line 

LOGO arranges the lines of a procedure in order of Increasing 
line number. Thus, we can "insert'^ an instruction line between 
two already typed lines simply by giving it a number between the 
line numbers of the two given lines. It is good programming 
practice to number procedure lines by fives or by tens, to leave 
space for thlS^'posslbility . 

Assume we had previously defined REV: 

TO REV /A/ /B/ /C/ 
10 PRINT /C/ 
20 PRINT /A/ 
END 

and we wish to insert the instruction line PRINT /B/ between 
lines 10 and 2j3, as line 15>say. Then: 

-<- EDIT REV 
> 15 PRINT /B/ 
>END 

REV DEFINED 



This effects the desired insertion. 

Changing an Entire Line 

We can change a previously entered instruction line by simply 
typing the desired instruction line, giving it the same number. 
The first version vanishes. We can retype the title line by 
typing TITLE, followed by the new title line. 

Typing a line number and carriage return results in that line 
containing no Instruction — effectively erasirjg the line 
previously having that line number, A neater way to erase a line 

is by using the command ERASE LINE , which completely expunges 

the line Indicated. 
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The current version of any line can be shown by the LOGO command 

LIST LINE , which prints out the indicated line. Similarly, 

LIST TITLE prints the title line, 

Changing Pa rt of a Line 

Often it is easier to modify an existing line than to completely 
retype it. To do this, we type EDIT LINE , giving the appro- 
priate line number. The computer will place the line number at 
the beginning of the next line. To have it type the next word of 
that line, we press the control key (CTRL) and N simultaneously, 
(This action is denoted by N^,) To get the rest of the line, we 
type (the control key and R). These two actions, together 
with and described above, can be used together, as in the 
following example: 

> L1ST LINE 30 (Note that we aro already in defining mode, 

30 PROMT SUM OP AND 2 the only context in which LIST LINE and 
> ED1T LINE 30 liDIT LINE are meaningful) 

30 NCPRONTW^sysW RRINT N^ SUM n£OF 3 R<^ AND 2 (carriage return) 

(Since and don't type out anything on the teletype, the 
above line looks readable.) 

> L1ST LINE 30 

PRINT SUM OF 3 AND 2 



Listing and Erasing the Entire Procedure 

LIST (p rocedure name) results in the procedure being typed vexactly 
as it stands at that moment, ERASE (procedure name) results in 
the procedure being expunged. 

Nearly any LOGO instruction line including LIST (procedure name) 
and ERASE (procedure name) can be executed when in the procedure 
definition (>) mode. The only exceptions are those like TO and 
EDIT which involve the definition of yet another procedure while 
we are already defining one. 

The following example shows a typical editing session involving 
the use of most of the features described in this section. 
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•^ LIST REVERSE 

TO REVERSE /Y/ (Should be /X/ in place of /Y/) 

10 TEST IS /X/ /EMPTY/ (Missing is 15 IF TRUE OUTPUT /EMPTY/) 

20 OUTPUT WORD (LAST /X/) 

CREVERS BUTLAST /X/) (Incorrect spelling) 

END 

-*- EDIT REVERSE (We could have used EDIT TITLE and then 

> TITLE TO REVERSE /X/ twice to have LOGO type TITLE TO 

> 15 IF TRUE OUTPUT /EMPTY/ REVERSE) 
> EDIT LINE 20 

20 NCOUTPUT n£W0RD N£CLAST N£/X/) N£ 

(REVERS \E RC bUTLAST /X/) (The \ deletes the space) 

> LIST line 20 

20 OUTPUT WORD (LAST /X/ (REVERSE 

BUTLAST /X/) 
> LIST REVERSE 

(skips one line) 
TO REVERSE /X/ 
10 TEST IS /X/ /EMPTY/ 
15 IF TRUE OUTPUT /EMPTY/ 
20 OUTPUT WORD (LAST /X/) (REVERSE 

BUTLAST /X/) 

^ END (Note there is no END command since 

REVERSE DEFINED definition of reverse is not complete 



3 . 2 Abbreviajjjrg 

To reduce the user's typing, the computer recognizes short forms 
for most commands. These are called abbreviations. For example: 

<- P S "CAT" "DOG" 
CAT DOG 

P is the abbreviation for PRINT and S for SENTENCE. The long 
forms are substituted internally for the abbreviations as soon 
as the abbreviations are typed in. Thus, if we type in a procedure 
definition making use of abbreviations and then list it, the 
computer types it back to us in expanded form. The set of 
built-in abbreviations Is given as part of Section 5. 

The user can make his own abbreviations with the command 
ABBREVIATE (two inputs). The first input can be any LOGO command, 
operation, or procedure, or combination of them. The second is 
the v.'ord vliich will become the abbreviation. The "noise v;ord" AS 
may be inserted between the two inputs of ABBREVIATE. ' 
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-^■A BBREVIATE ^'PRINT SUM'^ AS "h-" 

^ •f "3" "5'^ — 

8 



An abbreviation can refer to Just one operation. If we type: 

-^ ABBREVIATE "RANDOM" ^'R" 
-^ ABBREVIATE "REVERSE" "R^' 

the first meaning of ^^R" Is lost • 

Built-in abbreviations can also be changed. 

-^ ABBREVIATE "POWER" "p" causes the abbreviation P for PRINT to 
vanish. 



Listing and Erasing Abbreviation s 

LIST ALL ABBREVIATIONS results in the typing of all user-defined 
abbreviations, for example, v;e now have: 

-^ LIST ALL ABBREVIATIONS 

R: REVERSE 

P: POWER 

+: PRINT SUM 

ERASE ALL ABBREVIATIONS is used to erase all abbreviations, and 
ERASE AbbREVIATION (abbreviation) to erase the indicated abbre^ 
viatlon. For example, 

-^ ERASE ABBREVIATION "+" 

+ IS UNDEFINED 



3 . 3 The User VJorkspace 

Upon logging in on a computer and requesting LOGO, the user has 
at his disposal al] built-in features of the LOGO language. These 
include the LOGO operations and commands, reservegi names, such as 
/EKPTY/, and standard abbreviations. The user is also assigned 
a vopkspaae within the computer memory • The additions he makes 
to the LOGO built-ins are kept in this workspace. These possible 



additions include user--def ined procedures / user-defined abbrevia- 
tions, and those user-defined names which were not created by 
execution of procedure title lines* Each class of objects in the 
user workspace can be listed or erased separately: 

LIST ALL PROCEDURES 
ERASE ALL PROCEDURES 

LIST ALL NAMES 
ERASE ALL NAMES 

LIST ALL ABBREVIATIONS 
ERASE ALL ABBREVIATIONS 

Abbreviations are the only built-ins which can be changed by the 
user. ERASE ALL ABBREVIATIONS not only erases all user abbrevia- 
tions, but restores the built-in abbreviations to their original 
state t 

The corrimands LIST ALL and ERASE ALL combine the listing and 
erasing commands for all these three types of objects in user 
workspace. Thus, LIST ALL provides an exact accounting of every^ 
thing in the user workspace and ERASE ALL completely empties the 
workspace^ Any procedure, name, or abbreviation can be listed 
or erased individually, as described in preceding sections. 

The command LIST CONTENTS lists just the title line of every 
procedure in workspace. For example: 

-^Lf ST CONTENTS 

TO REVERSE /X/ 
TO FACTORIAL /N/ 



GOODBYE, as well as exiting from LOGO, results in the complete 
loss of the user workspace. LOGO provides commands to save the 
contents of the v;orkspace for subsequent use. If such retention 
is desired, it must be effected before GOODBYE is typed* The 
saved material can then be retrieve^ at any later time. This 
process of ^'SAVEing" and ''GETting'^;is described next. 



3.4 Fi 1 1 ng 

LOGO provides a facility for users to file away their work. The 
basic unit of a LOGO file is an entry. Each entry has a two-word 
ent'pu name. The first word of the entry name is the file name 
and is common to all the entries in a file (it is commonly the 
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name of the user who owns the file). The second word of the 
entry name distinguishes the entry from other entries in the 
same file. Examples of entry names are JIM EQUATIONS, NANCY 
RANDOMSENT, JIM NIM, NANCY EQUATIONS. 

An entry is created by the command SAVE. The entry thus created 
contains everything in the user workspace that is, everything 
that would be listed by LIST ALL. The user workspace is left 
unchanged by the SAVE command. For example, 

-<- SAVE GRANT ARITH 
4- 

In this example, the entry GRANT ARITH is created- If GRANT 
ARITH already exists, the old entry is replaced by the new one. 
Although the user workspace may subsequently change, the contents 
of the entry GF^ANT ARITH will remain as they were at the time 
they were saved. When the user gives the command GOODBYE, the 
workspace is destroyed but all entries are retained. 

In a well--organized file, each entry contains a related group of 
procedures, names, and abbreviations (for examnle, those that 
are used for playing Nir4, or those used in solving linear 
equations). By first erasing Irrelevant parts, the user can 
save any desired subset of his workspace. 

To retrieve an entry from a file, the command GET is used. 
<- GET GRANT ARITH 

The contents are copied into, and become a part of, the student's 
current v/orkspace the entry itself is unchanged. The additions 
to the workspace provided by a GET are Inserted in the same way 
as if a user had typed them in. Thus, abbreviations and names 
supersede existing, ones and procedures in the entry having the 
same names as those in the workspace are not entered. 

There are three different types of objects possible in the user 
workspace, and hence in any entry. These parts of an entry can 
be listed by the coimp.ands 

LIST PROCEDURES (where the dashes 

LIST NAMES indicate the two-word 

LIST ABBREVIATIONS entry name) 



LIST ENTRY lists everything in the entry — all three 

parts. LIST CONTENTS gives the title line of each pro- 
cedure contained In the entry indicated. 

LISTlng any part of an entry does not result in its being copied 
into the active workspace* Only GET will do this. 

The command LIST ALL FILES causes LOGO to type all existing file 

names. The command LIST B'lLE causes LOGO to type the entries 

in a given file. To remove an entry from a file, the command 
ERASE ENTRY is used: 

- ^ERASE ENTRY GRANT ARITH 

-^ GET GRANT ARITH 

THERE IS NO ENTRY GRANT ARITH 



When all entries in a file are erased, the file itself is auto-* 
matlcally eliminated. 

LOGO also provides two operations for working with LOGO files. 

SIZE outputs a number proportional to the amount of 

space the entry indicated occupies in memory. 

ENTRIES outputs a sentence of the second words of all 

entry names contained in the file indicated. 



3 * 5 Debugg 1 ng 

The LOGO system has built-in aids to help users find the '^bugs" 
in their programs. A bug has one of two effects. It may cause 
the computer to try to execute an illegal instruction or it may 
direct the execution of instructions that are legal but which 
produce a wrong answer or no answer at all, e.g., it may put the 
computer in a loop that never ends. 

In the first case, the computer immediately stops executing 
instructions and types out a diagnostic message describing the 
error and telling where it occurred. (Some typical diagnostic 
messages are listed at the end of this section* ) An example of 
this is: 

-^-T O GREET /X/ 

> 10 PRINT SENTENCE OF ^^HELLO/^ AND /X/ 
> 20 PRON T '| HOW AR E YOU?" ' 
> 30 PRIN T^EE "YOU - LATER" 
> END 

GREET DEFINED 
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•♦- GREET "JOHN" 
HELLO, JOHN 

PROMT NEEDS A MEANING. • ■ 

I WAS AT LINE 20 IN GREET 

There was a bug. The diagnostic message designates the type of 
error and where the error was found. EDIT can be used to make 
the necessary changes. 

-t- EDIT GREET 

> 20 PRINT "HOW ARE YOU?" 
> END 

GREET DEFINED 

-t- GREET "JOHN" 
HELLO, JOHN 
HOW ARE YOU? 
SEE YOU LATER 

When the procedure GREET was being defined, the computer didn't 
object when line 20 was typed In, even though it did not know 
the meaning of FRONT. The reason Is that a procedure FRONT might 
have been written later, after GREET was defined but before it 
was executed. 

In this example, the computer's diagnostic message pointed to the 
source of the error and thus was directly helpful. Often, 
however, we get situations where the Illegal instruction isn't 
the direct cause of the error. For example, in the course of 
running a procedure the computer may say 

DIFFERENCE OF "AB" AND "1"? INPUTS MUST BE NUMBERS. 
I WAS AT LINE 50 OF SAM. 

■ ^EDIT SAM 
> LIST LINE 30 

30 OUTPUT SUM OF /X/ AND PRODUCT OF /X/ AND DIFFERENCE OF 
/Y/ AND "1" ' 

Assuming the arithmetic expression given is the one intended, the 
error is not contained in line 30- Somewhere earlier in the 
execution, /Y/ was made "AB" instead of a number. This type of 
error then is of the second type mentioned above. The computer 
gets past che faulty instruction and the defective result shows 
up as a bug later when the computer is performing another 
Instruction, perhaps in a different procedure. In this situation 
the diagnostic is less helpful and the error is more difficult to 
track down. 
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The TRACE command, described in the section on recursion, is often 
useful in finding errors, especially those resulting in a faulty 
recursion. TRACE, followed by a procedure name, results in a 
special "flag'^ being placed with the procedure. Then, whenever 
the procedure is called in an execution, its title line Is typed 
with the current values of its dummy variables. When the proce- 
dure outputs, or is otherwise completed, an appropriate typeout 
is made and the output, if any, is shown. If a procedure is in 
TRACE mode, this is indicated whenever the procedure is LISTed. 
To get out of TRACE mode, the command ERASE TRACE, followed by 
the procedure name, is used. ERASE ALL TRACES is a more drastic 
LOGO command. 

Another useful approach, when the difficulty lies within a known 
procedure rather than '^between'^ procedures3 is to insert extra 
lines in the defective procedure to type intermediate results. 
These help to pinpoint the error and can be removed after a 
correction has been made* 



Pi agnos t1 c Messages 

There are about 100 diagnostic messages* The following are some 
typical ones* 

YOU NEED / MARKS AROUND EACH INPUT. 

TITLE MUST BE FOLLOWED BY "TO". 

END WHAT? YOU'RE NOT DEFINING ANYTHING. 

GO WHERE? 

LIST ALL WHAT? 

DON'T TRY TO DEFINE ANOTHER PROCEDURE INSIDE THIS ONE. 
DIVISION BY ZERO. 

DON'T USE THE EMPTY WORD FOR A NAME. 
ERASE WHAT? 

THE INPUT TO TEST MUST BE A PREDICATE. 

The following conimetits mean that the number of inputs found on 
the line was not correct. The exact form of corrtment depends on 
the particular parsing error. 

: IS EXTRA 

THERE ARE INPUTS MISSING FOR 



In the following diagnostics, the underscored v/ords are filled 

in appropriately by LOGO when the error occurs. The v;ords given 
here are typical exaraples. 

MATCHING^? (or or ^ or 2^ 
FRONT NEEDS A MEANING? 

TRUMP ISN'T COMPLETELY DEFINED. (END command not yet given.) 
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THERE IS NO LINE 3^, 

SUM OF "A'^ AND INPUTS MUST BE NUMBERS. 

TEST IS USED BY LOGO. (The user cannot define a procedure 

called TEST) 

OF ISN'T A PROCEDURE. 
THERE ISN'T ANY FILE GRANT 
REVERSE IS ALREADY DEFINED. 
YOU'RE ALREADY DEFINING REVERSE . 
YOU'RE ALREADY EDITING REVERS E. 

REVERSE CAN'T BE USED AS AN INPUT. IT DOESN'T OUTPUT. 

The comment I AM IN TROUBLE. TELL YOUR TEACHER indicates a 
computer failure. 



3.6 Interrupti ng Execution 

The execution of a direct: line or procedure is interrupted by 
the momentary depression of the key "labeled BREAK. The pressing 
of the BREAK key is effective , whether the computer is performing 
internal operations or printing on the teletypewriter. When this 
occurs, LOGO types ^*BREAK" as well as the procedure name and line 
it was then executing, and then returns control to the user. 
(This "positional" information is omitted if a direct line was 
interrupted.) The state of the execution is preserved — all 
intermediate results are kept. These include all the local names 
set up by the use of dummy variables in procedures which had not 
yet terminated. LIST ALL NAMES gives all these "local" names in 
order opposite to the order of their creation. Control has 
returned to the user exactly as though these intermediate results 
did not exist. They do not get saved by a SAVE command, nor do 
they interfere with any procedure definition or execution. They 
can, however, slow down execution somewhat because they take up 
room In the user's workspace. The only real effect these inter- 
mediate results have is initiated by the no-input command GO. 
This results in the interrupted calculation being resumed exactly 
from the point left off. The only loss that can occur is that of 
some printing that was in process when BREAK was pressed. Any 
changes made in the interim will, of course, result in a continu- 
ation different from that produced if no interruption had taken 
place. Thus, the BREAK key can be a useful debugging tool. 

The no-input command CANCEL erases the intermediate results pro- 
duced by the calculation interrupted by the latest BREAK. Thus, 
if an execution has been interrupted, another initiated without 
the use of GO and the BREAK key again pressed, two uses of CANCEL 
are needed to erase all the intermediate results existing in the 
workspace. It is good practice to use CANCEL after interrupting 
any procedure which is not to be resumed using GO, 
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4. Additional Commands and Operations 
4 . 1 Formatti ng 

There is one command and several reserved LOGO names for position- 
ing characters to be typed. They are particularly useful for 
writing procedures to "draw" figures on the teletype, but have 
other uses as well. 



TYPE is a command which causes its one input to be typed. It 
differs from PRINT only In that the typehead rejnains positioned 
Just after the character last typed — there is no return to the 
beginning of the next line. ' 

Some special names are used for formatting with a PRINT or TYPE 
command. They are; 



/BLANK/ 



/LINE FEED/ 

/CARRIAGE RETURN/ 
/SKIP/ 

/FORM FEED/ 



a blank space. (the space bar cannot be used 
for this because LOGO eliminates superfluous 
spaces . ) 

teletype goes to next line without moving 
hori zontal ly . 

return to beginning of current line. 

a new line, (has the effect of both a 

carriage return and a line feed.) 

move paper to new page on teletypes which 

have a form feed feature. 



Then, to have the computer draw a diagonal line: 



■^- TO DIAGONAL /N/ 
> 10 TEST IS /N/ 0 
> 20 IF TRUE STOP 
> 30 TYPE 

>H0 TYPE /BLANK/ 

> 30 TYPE /LINE FEED/ 

> 60 DIAGONAL (DIFF /N/ 1) 

>END 

DIAGONAL DEFINED 
-^-DIAGONAL 8 



(Are we finished?) 

(Move across one) 
(Move down one) 
(Repeat for /N/ -1) 
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4 . 2 Interactive Programs 



All commands and operations used thus far must have their inputs 
specified before they are executed. Each such input is a literal, 
the thing of a name, or the output of some operation or procedure. 
The LOGO operation REQUEST, however, causes execution to pause 
until the user has typed a string; of characters and a carriage 
return. REQUEST then outputs this string. For example: 

-^mNX-REfiUEST 

" HUMBUG (REQUEST prints an asterisk "*" to show 

HUMBUG that user type-in is required*) 

SPRINT SUM OF REQUEST AND REQUEST 

(The leftmost REQUEST) 

"2 
5 



REQUEST makes possible the writing of programs which "interact" 
with the user. 

-t -TO COPYCAT 

> 10 PRINT "TELL ME SOMETHING." 
> 20 PRINT REQUEST 
>i^_COPYCAT 
> END 

COPYCAT DEFINED 
^COPYCAT 

TELL ME SOMETHING. 

- WHO ARE YOU? 

WHO ARE YOU? 

TELL ME SOMETHING. 

-'WHY SHOULD I? 

WHY SHOULD I? 

TELL ME SOMETHING. 

" ARE YOU SOME KIND O F NUT 

ARE YOU SOME KIND OF NUT 

TELL ME SOMETHING. 



• • • 
« • • 



This asterisk is omitted when LOGO is not at the left-hand 
edge of the paper. This is often the case when the last 
typing resulted from a TYPE command. 
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The existence of an interactive capability makes the element of 
time particularly interesting. There are several ways in which 
LOGO makes provision for timing. 

The operation ASK requires one input which must be a number. 
ASK is the same as REQUEST unless the user has not completed his 
typing when- a number of seconds equal to the input has elapsed. 
If this happens, ASK outputs the empty word and returns the 
carriage to a new line. 

■*- T0 QUICKQUERY /QUESTION/ 
> 10 PRINT /QUESTION/ 
> 20 MAKE "ANSWER" ASK 5 
> 50 TEST IS /ANSWER/ /EMPTY/ 

>'40 IF TRU E PRINT "YOU WEREN'T FAST EN'OUGH" 

> 50 OUTPUT /ANSWER/ 

> ENO 

QUICKQUERY DEFINED 

•♦-PRINT Q UICKQUERY "WHO DISCOVERED FERMAT'S LAST THEOREM? 

YOU HAVE 5 SE CONDS TO ANSWER." 
"FERM (If as here, 5 seconds have elapsed before the user 

presses CARRIAGE RETURN, LOGO resumes control) 
YOU WEREN'T FAST ENOUGH 

(The empty line is printed here by QUICKQUERY) 



The current date and time are made available to LOGO by the no- 
input operations DATE and TIME: 

■S PRINT DATE 
6/15/71 
■^ PRINT TIM E 
11 : 05 PM 

There is also an internal "clock" which is started when the user 
enters LOGO. This clock keeps time in seconds: 

■^ PRINT CLOCK 
1806 

■^ PRINT CLOCK 
1811 

RESET CLOCK sets the clock back to J3 . 

-f PRlNT CLOCK 
1825 

■PRESET CLOCK 
■S PRINT CLOCK 
5 
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The WAIT command makes LOGO pause a number of seconds equal to 
its one input. It has no other effect. For auditory interaction, 
there is the reserved name "BELL". PRINT /BELL/ rings the 
teletype bell. 



4 . 3 More Arithmetic 

There are several numerical operations besides the basic four 
operations and GREATERP and RANDOM, all discussed earlier. All 
built-in numerical operations require integer Inputs. 

The operation QUOTIENT simply outputs the integer part of the 
quotient of its two Inputs. REMAINDER outputs the remainder of 
the division yielding the quotient. DIVISION outputs a sentence 
of two numbers ~ the quotient of its two Inputs and the 
remainder. 

t- PRINT QUOTIENT OF 1^ AND -6 
-5 

•t- PRINT REMAINDER OF 3^4 AND -6 

•t- PRINT DIVISION OF 3^4 AND -6 
-5~4 



MAXIMUM outputs the greater of its two Inputs. MINIMUM outputs 
the lesser of its two inputs. 

t- TO 0RDER2 /A/ /8/ 
> 10 OUTPUT SENTENCE 

MINIMUM /A/ /B/ 

MAXIMUM /A/ /B/ 

> END 

0RDER2 DEFINED 
■t- PRINT 0RDER2 3 -1 
-1 3 



ZEROP is a one-input operation which outputs "TRUE" or "FALSE" 
as the input is, or is not, numerically equal to zero. Thus, 
ZERO? is not the same as IS j3. 

t- PRINT IS 0 00 
FALSE 

■t- PRlNT ZEROP 00 
TRUE 
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COUNT is not itself a numerical op.eratlon, but it has an integer 
output, so it usually appears in conjunction with numerical 
operations. COUNT has one input. Its output is the number of 
letters in the input, if it is a LOGO word — or the number of 
words, if it is a LOGO sentence. Thus: 

-«- PRlNT COUNT OF "ABC" 
3 

"-PRINT COUNT OF "THE CAT IN THE HAT" 
5 

■«- PRINT COUNT "" 
0 



4 . 4 Local an d Global Names - 

The Command LOCAL 

As we saw earlier, including a name on the title line of a 
procedure meant that a special copy of the name would be created 
each time the procedure was invoked. Each copy disappears when 
the procedure which created it terminates. This feature is 
espepially useful when a procedure makes copies of itself 
recursively, like the procedure REVERSE in the section dealing 
with recursion. When a name does not appear in the title line of 
the procedure in which it is used, no special copy of the name is 
made. This Is often a useful feature when we use such a global 
name to transfer information from one procedure to another. 
Sometimes, as in the example following, a "slight" variation of 
REVERSE, it is a handicap. 

-h to reverse /inpu t/ 

> \f test is /input / /empty/ 

>20 if true output /e mpty/ 

> 3ja MAKE "Y" FIRST OF /INPUT/ 
> t40 OUTP UT WORD OF 

REVERSE CBUTFIRST OF /INPUT/j AND /Y/ 

>END 

REVERSE DEFINED 
-t- pRlNT REVERSE "HELLO" 
00000 
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•^ TRACE REVgRSE^ 
-^ PRINT REVERSE OF "HFLLQ " 
REVERSE OF "HELLO" 
REVERSE OF "ELLO" 
REVERSE OF "LLO" 
REVERSE OF "1.0" 
REVERSE OF "0" 
REVERSE OF "" 
REVERSE OUTPUTS "" 
RE-VERSE OUTPUTS "0" 
REVERSE OUTPUTS "00" 
REVERSE OUTPUTS "000" 
REVERSE OUTPUTS "0000" 
REVERSE OUTPUTS "00000" 
00000 



C/Y/ .is 
(/Y/ is 
(/Y/ is 
(/Y/ is 
(/Y/ is 



now 
now 
now 
now 
now 



"E") 
"L") 
"L") 
"0") 



(Since input is /EMPTY/, /Y/ is 
not changed) 



(The result is PRINTed) 



"Y" is made "0" in the fifth copy of REVERSE and never changes 
thereafter. In the succeeding outputs, this /Y/ is what is 
actually used. We really Intended that a new copy of "Y" exist 
for each calling of REVERSE. We can easily accomplish this by 
the insertion of the Instruction: 



5 LOCAL "Y" 



This results in "Y" being handled Just as if it were on the 
title line. Now REVERSE works. 



•«- PRtNT REVERSE "HELLO" 
OLLEH 



LOCAL is an unusual command in that it allows any number of 
inputs to follow it. Each is taken as a name to be made "local" 
to the procedure in which LOCAL appears. 



4 . 5 Automatic Pr ogram Generation - An Advanced Feature 

DO is a LOGO command which results in the execution of its one 
input. Thus, for example, 

■«- D0 "EDIT FOO" 

> (and we are editing FOO) 

In the case above we could Just as well have typed in EDIT FOO 
directly, omitting the quotes and the DO. But, we could also 
have written, in still larger form: 
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-♦- MAKE "PN AME" "fOO" 

■^DO SENTENCE "EDIT" AND /PNAME/ 



Here we see the Utility of DO. It enables exact specification 
of parts of statements to be deferred, which otherwise would have 
had to be inserted in literal form. Thus the command DO forms 
the basis for general procedures which create or modify other 
procedures . 

Two operations are provided by LOGO to enable a procedui^e to find 
the current contents of a procedure to be modified. 

LINKS is a one-input procedure. It outputs the sentence of the 
line numbers of the procedure given as input. 

TEXT is a two-input procedure — it requires a procedure name 
and a line number. It outputs the entire line, as a sentence. 
If the line number ^J is given, TEXT outputs the title line of 
the procedure indicated. 

Thus, LINES can be used to find what lines exist and TEXT to go 
through them one-by-one. 

To illustrate these commands, consider the following procedure 
for replacing /WORD/ by /SUBST/ in /SENTENCE/. 

•^ TO REPLACE /WORD/ /SUBST/ /SENTENCE/ 
> 10 TEST IS /S ENTENCE/ /EMPTY/ 
> 20 IF TRUE OUTPUT /EMPTY/ 
> 30 TEST IS CFIRST / SENTENCE/ ) /WORD/ 
> ^Si IF TRUE OUTPU T SENTENCE 
/SUBST/ 

REPLACE /WO RD/ /SUBST/ (BUTFIRST /SENTENCE/) 
> 50 OUTPU T SENTENCE ~^ 
FIRST /SEN TENCE/ 

REPLACE /WORD/ /SUBST/ (BUTFIRST /SENTENCE /) 

>END 

REPLACE DEFINED 

-^ PRINT REPLACE OF "CATS" "DOGS" "IT'S RAINING CATS AND DOGS" 
IT'S RAINING DOGS AND DOGS 
-^ PRINT L INES OF " REPLACE" 
10 20 30 *t0 50 

■S PRINT TEXT OF "REPLACE" AND 30 

30 TEST IS (FIRST /SENTENCE/) /WORD/ 



ERIC 



-37- 



The following set of procedures, using the procedure REPLACE, 
inserts /W2/ in place of /Wl/ everywhere the latter appears in 
a procedure /PNAME/. It exemplifies the use of DO, LINES, and 
TEXT. 

TO MODIFY /PNAME/ /Wl/ /W2/ 

10 DO SENTENCE OF "EDIT" AND /PNAME/ 

20 CHANGE CLINES OF /PNAME/) /Wl/ /W2/ 

30 DO "END" 

END 



TO CHANGE /LINES/ /Wl/ /W2/ 
10 TEST IS /LINES/ /EMPTY/ 
20 IF TRUE STOP 

30 DO SENTENCE SENTENCE SENTENCE 
"REPLACE" 
/Wl/ 
/W2/ 

TEXT OF (FIRST /LINES/) 
^♦0 CHANGE CBUTFIRST OF /LINES/) /Wl/ /W2/ 
END 



The reserved name "CONTENTS" has as its thing, the sentence of 
all procedure names (not title lines) in workspace. This makes 
possible writing of procedures even more general than the above. 
For further generality, /PILES/ is a sentence consisting of all 
file names. 

4 . 6 Other Ways to Terminate a Procedure 

To stop execution of a procedure before the END command, the 0 
input command STOP may be used. Its effect is exactly that of 
END — the procedure simply stops and control returns to whatever 
called the procedure. STOP is often used to terminate one branch 
resulting from a TEST. For example, 

rO FACTOR /A/ 

10 TEST ZEROP /A/ 

20 IF TRUE PRINT "I CANNOT FACTOR ZERO" 

30 IF TRUE STOP 

• • • 

• « • 

The one-input command EXIT also terminates a procedure. Its 
Input Is typed, then LOGO acts exactly as though an error has 
been found, typing the location of the EXIT command and returning 
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control to the user. Thus, the example of a partial procedure 
preceding could have been written 

TO FACTOR /A/ 

10 TEST ZEROP /A/ 

20 IF TRUE EXIT "I CANNOT FACTOR ZERO" 

• * • 

• • • 

t 9 • 

and, after the procedure has been completed, 
■♦- FACTOR 0 

I CANNOT FACTOR ZERO 

1 WAS AT LINE 20 OF FACTOR 



4 .*7 Mi scellany 
The Turtle 

There is a set of operations and commands reserved for the 
"turtle", a LOGO-controlled robot. 

The j2f-input commands FRONT and BACK move the turtle 'one unit in 
the directions they name. RIGHT and LEFT rotate the turtle 
clockwise and counterclockwise. HORN rings the turtle's bell. 

The 0-input operations TOUCH LEFT and TOUCH RIGHT refer to the 
turtle's touch sensors. TOUCH LEFT outputs TRUE if the left 
sensor is against an obstacle, otherwise, it outputs FALSE. 
TOUCH RIGHT queries the right touch Sensor in the same way. 

Other Comma nds and Ope ration s 

EMPTYP is a one-input operation which outputs -TRUE or FALSE as 
its input is or is not the empty word. EMPTYP has exactly the 
same effect as IS /EMPTY/. 

IGNORE is a one-input command which has no effect. It is used 
in the rare situations where an output which has no further use 
is generated. For example, the lines 

50 PRINT "PRESS CARRIAGE RETURN TO CONTINUE" 
60 IGNORE REQUEST 

result in typing of the message given by line 50, followed by 
typing of and a pause in execution until the CARRIAGE RETURN 
key is pressed, 
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GO TO LINE Is a one-Input command which is valid only in a pro- 
cedure* It causes execution to pass to the line whose number is 
given as its input. 

Comments 

A user may place remarks which he does not wish to be executed 
anywhere within a procedure definition. The user Indicates that 
a string is not to be executed by placing semicolons around it.* 
The only restriction on inserting comments in this way is that 
they may not be placed within the quotes demarcating a literal 
or within the pair of slashes delimiting a LOGO name. Remarks 
correctly indicated have no effect on the execution of the pro- 
cedure they lie within. They only appear when the procedure is 
listed. For example, 

TO DIAGONAL /N/; DRAWS A DIAGONAL LINE« 
10 TEST IS /N/ 0; END TEST 

20 ; IF /N/ IS 0 WE ARE DONE; IF TRUE STOP 
30 TYPE 

40 TYPE /BLANK/; MOVE ACROSS ONE SPACE 
50 TYPE /LINE FEED/; NEXT LINE 

60 ; REPEAT FOR /N/ -1; DIAGONAL (DIFF /N/ 1) 
END 

Comments may be placed after the entry name in a SAVE command, 
again preceded by a semicolon. The comment is typed whenever 
the entry name appears in a listing: 

^SAVE GRANT ARITH; A GENERAL ARITHMETIC PACKAGE 



/QUOTE/ 

If the user tries to print "DOG'S complete with quotes, he gets 
an error. 

-H pRiNT ""DOG"^' 

(prints empty word) 

DOG"" IS EXTRA 

The special LOGO thing /QUOTE/ is used in such a situation to 
Indicate a quote mark which is not intended as the delimiter of 
a literal . Thus : 

-H PRINT SENTENCE SENTENCE /QUOTE/ "DOG" /QUOTE/ 

"DOG*',,™^^^ 

T/T commelit at the end of a line need not be^ terminated with 
ai aferriiftblo 



5, Glossary and Index 

Abbr, 

ABBREVIATE ABT 

AND 

AS 

ASK 

BACK 

BOTH B 

BUTFIRST 8F 

BUTLAST BL 

CANCEL 
CLOCK 

COUNT C 
PATE 

DIFFERENCE DIFF 
DIVISION DIV 

DO 

EDIT : 

EDIT LINE EDL 



Description Page 

(2- input command) sets up second input 

as the abbreviation of the first input 23 

("noise" word) used for clarity; valid 
only between inputs of a procedure 6 

("noise'* word) valid only in 

abbreviat ing 23 

(1-input operation) outputs literal 
type-in from teletype if completed in 
in put number of seconds, else the emp ty 
word 33 

(^)-input command) "turtle" effector, 

moves turtle back 1 space 39 

(2-input operation) each input must be 
TRUE or FALSE; outputs TRUE if both are 
TRUE, otherwise FALSE 16 

(1-input operation) outputs all but 
first character of an input word, or all 
but first word of input sentence 7 

(1-input operation) outputs all but last 
character of input word, or all but last 
word of input sentence 7 

(0-input command) eliminates one level 

of break 30 

(0-input operation) outputs time given 

by internal one-second clock 33 

(1-input operation) outputs number of 

characters of an input word, or number 

of words of an input sentence 35 

(p-input operation) outputs current date 33 

(2-input operation) difference of first 
and second input, which must be integers 8 

(2-input operation) inputs must be 
integers. Output is sentence of integer 
quotient and remainder 34 

(1-input command) executes its input as 
a LOGO instruction line 



(command fo 11 owed by procedure name) 
puts LOGO into define mode 

(1-input command) used to edit line 
indicated, valid only in define mode 
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21,23,28 
22,23 
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EDIT TITLE 
EITHER 

EMPTYP 

END 

ENTRIES 
ERASE 



ERASE 
ABBREVIATION 

ERASE ALL 



ERASE ALL 
ABBREVIATIONS 

ERASE ALL 
NAMES 

ERASE ALL 
PROCEDURES 

ERASE ALL 
TRACES 

ERASE ENTRY 



ERASE LINE 



ERASE TRACE 



EXIT 



FIRST 



Abbr. Description Page 

EOT (0-input command) used to edit title, 

valid only in define mode 23 

EI (2-input operation) each input must be 

TRUE or FALSE. Outputs TRUE if either 
input is TRUE, otherwise FALSE 16 

EP (1-input operation) outputs TRUE if 

input IS the empty word, otherwise 
FALSE 39 

(0- input command) terminates a 

procedure definition S 

(1-input operation) outputs sentence of 

second words of entry names in file 

given as input 27 

ER (command, followed by procedure name). 

erases procedure from workspace 22 

(1-input command) erases abbreviation 
given as input 24 

(0-input command) completely erases 
workspace, restores built-in abbrevia- 
tions 25 

(^- input command) erases all user- 
defined abbreviations in workspace 24,25 

(0- input command) erases all user- 
defined names in workspace 

(0-input command) erases all procedures 
from workspace 

(0-input command) removes trace flag 
from all traced procedures in workspace 

EE (command, followed by entry name) 

completely erases indicated entry 

ERL (1-input command) only valid in define 
mode. Erases line whose number is 
given as input 

(command J f o 1 lowed by procedure name) 
removes trace flag from indicated 
procedure 

(l-input command) types its input, the 
line number and procedure name in which 
it appears and terminates execution 

(1-input operation) outputs the first 
character of an Input word, or the first 
word o( an input sentence 



25 



25 



29 



27 



21 



29 
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Abbr. 



Description 



Page 



FRONT 

GET 

60 

60 TO LINE 

600DBYE 
6REATERP 

HORN 

IF FALSE 

IF TRUE 

IGNORE 
IS 

LAST 

LEFT 
LINES 

LIST 



LIST 
ABBREVIATIONS 

LIST ALL 



(0-input command) ''turtle^' effector, 
moves turtle forward 1 space 

(command, followed by entry name) 
enters indicated entry into workspace 

(0- input coitimand) continues execution 
from a BREAK key interrupt 

6TL (1-input command) only valid within a 

procedure definition. Transfers execu- 
tion to line whose number is given as 
input 

6B (0-input command) terminates LOGO 

session 

GP (2-input operation) inputs must be 

integers. Outputs TRUE if first input 
is strictly greater than second, else 
FALSE 

(0"input command) **turtle'' effector, 
rings turtle's bell 

IFF (command followed by 
executes instruction 
FALSE, otherwise ha3 

IFT (command followed by 
executes instruction 
TRUE, otherwise has 

(1-tnput command) has no effect 



instruction) 
i f truth flag 
no effect 

instruction) 
if truth flag 
no effect 

no 



1 s 



1 s 



(2-input operation) outputs TRUE if 
first input is identical to second, 
otherwise FALSE 

(1-input operation) outputs last 
character of an input word, or last 
word of input sentence 

(0-input command) ''turtle** effector, 
rotates turtle counterclockwise 

(1 - input operation) out put is sentence 
of all instruction line numbers of 
procedure whose name is given as input 

(command followed by procedure name) 
types definition of indicated procedure 

(command followed by entry name) types 
all abbreviations In entry indicated 



(0-1 nput command) 
workspace 



types entire user 



39 
26 
30 

40 
3,25 

16 
39 

16 

16 
39 

16 

7 
39 

37 

22 
26 
25 




Abbr. 



LIST ALL 
ABBREVIATIONS 

LIST ALL 
FILES 

LIST ALL 
NAMES 

LIST ALL 
PROCEDURES 

LIST CONTENTS LC 



LIST CONTENTS LC 

LIST ENTRY LE 
LIST FILE 

LIST LINE LL 

LIST NAMES 

LIST 
PROCEDURES 

LIST TITLE 
LOCAL 

MAKE 

MAXIMUM MAX 

MINIMUM MIN 

NUMBERP NP 



Description 

(0-input command) types all abbrevia- 
tions in user workspace 

(0-input command) types all file names 



(0-input command) 
user workspace 

(0- input command) 
of all procedures 

(0-input command) 
all procedures in 

(command followed 
title liiies of all procedures 
indicated 



types all names in 

types def init ions 
in user workspace 

types title lines of 
user workspace 

by entry name) types 
in entry 



(command followed by entry name) types 
entire entry indicated 

(command followed by file name) types 
list of entries in file indicated 

(l"input command) valid only in define 
mode. Types line whose number is 
given as input 

(command followed by entry name) types 
all names in entry indicated 

(command followed by entry name) types 
all procedure definitions in entry 
indicated 

(0-input command) valid only in define 
mode. Types title line of procedure 
being defined 

(command with any number of inputs) 
only valid in a procedure. Makes all 
names given as inputs local to the pro- 
cedure containing this command 

(2-input command) makes the first input 
the name of the second input 

(2-input operation) inputT must be 
integers. Outputs the greater of the 
inputs 

(2-input operation) inputs must be 
integers, Outputs the lesser of the 
i nput s . - ' ■ 

(1 - input operation) outputs TRUE if 
irtp^ut is an Integer; otherwise FALSE 



Page 

24 
27 

25,30 
25 
25 

27 
27 
27 

22,23 
26 

26 

22 

35 
12 

34 

IS 



JC 



Abbr, 



Description 



Page 



OF 

OUTPUT OP 

PRINT P 

PRODUCT PROD 
QUOTIENT QUO 

RANDOM 

REMAINDER REM 

REQUEST RQ 
RESET CLOCK 
RIGHT . 
SAVE 

SENTENCE S 
SENTENCEP SP 
SIZE 
STOP 

SUM IQ^^ 



(^'noise*' word) used for clarity; only 
valid following procedure name 6 

(1-input command) valid only in proce- 
dure. Passes its input to procedure 
(or operation or command) which called 
current procedure 11 

(1-input command) types its input on 

teletype and returns carriage to 

beginning of next line 3 

(2-input operation) inputs must be 
integers. Outputs their product 6,8 

(2-input operation) inputs :.iust bo 

integers. Outputs their integer 

quot i en t 8,34 

(0- input operation) outputs a random 

digit 8 

(2-input operation) irputs must be 
integers. Outputs renainder of their 
integer division 34 

(0- input operation) outputs literal 
type-in from teletype 32 

(0-input command) rasets internal clock 

to zero 33 

(0-input command"^ ^'turtle*' effector, 
rotates turtle rlockwise 39 

(command follo.ved by entry name) saves 
user workspace as entry with name 
indicated 26 

(2- input Operation) outputs sentence 

of its irputs 7 

(1-inprt Operation) outputs TRUE i f 

input is a sentence, otherwise FALSE 15 

(l-:nput operation) outputs ''size" of 
enry given as input 27 

(^-input command) valid only in proce- 
dure . Terminates execution of its 
procedure 38 

(2-input operation) inputs must be 
integers. Outputs their sum 8 

(1-input command) input must be TRUE or 
FALSE, Sets truth flag to its input 16 
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Abbr. 



Description 



Page 



TEXT 

THING 

TIME 

TITLE 

TO 

TOUCH LEFT 
TOUCH. RIGHT 

TRACE 

TYPE 
WAIT 

WORD 

MOROP 
2ER0P 



W 

WP 
ZP 



(2-input operation) outputs text in 

procedure given by first input, with 

line number given by second input 37 

(1 - input operation) outputs thing named 

by the input 12 

(0-input operation) outputs current 

time ' 33 

(command followed by title line) valid 
only in define mode. Changes title of 
procedure being defined to that 
following 21 

(command followed by title line) enters 
define mode of procedure name following 4 

(0-input operation) "turtle" feedback, 
outputs TRUE if left sensor has touched 
obstacle, resets touch flag, other wise 
outputs FALSE 39 

(0-input operation) "turtle" feedback, 

outputs TRUE if right sensor has touched 

obstacle, resets touch flag, otherwise 
outputs FALSE 39 

(command followed by procedure name) 

sets trace flag for procedure indicated 18,29,3( 

(1-input command) types its input 

(1-input command) causes execution to 
pause a number of seconds equal to its 
input 

(2-input operation) inputs must be words. 
Outputs the Word formed by concatenating 
them 7 

(1-input operation) outputs TRUE if input 
is a word , o therwi se FALSE 15 

(1-input operation) outputs TRUE if 
input is equal to zero, otherwise FALSE 34 



31 



34 



There are also several abbreviations for parts of commands 
They are 

ABB: ABBREVIATION 
ABBS: ABBREVIATIONS 
■ ER: ERASE / / i^^^^^^^^^^^^ 

-'<::''--/~~-^r:'- PRS: PROCEDURES 



Reserved Names 



/EMPTY/ 
/CONTENTS/ 
/LINE FEED/ 

/CARRIAGE RETURN/ 

/FILES/ 
/FORM FEED/ 

/BLANK/ 
/BELL/ 
/QUOTE/ 
/SKIP/ 



Description Page 

the empty thing 19 

a sentence of user-defined procedure names 38 

a line feed without carriage return when 

typed 31 

a carriage return without line feed when 

typed 31 

a sentence of file names 38 

moves paper to a new page when typed on 

teletypes having form feed feature 31 

a blank space when typed 31 

rings a bell when typed 34 

a quote mark 40 

a new 1 ine • (carriage return and line feed) 

when typed :>1 



RETURN 
RUB OUT 
LINE FEED 

BREAK 
\ 

«CTRL-W 
2'CTRL-N 

"CTRL-R 

-CTRL-B 
-CTRL-G 
"CTRL-L 



Special Keys 

gives line just typed by user to LOGO 

erases line being typed 

carriage goes to next line without 
terminating current line 

inter rupts execution 

deletes last character typed 

deletes, last word. t,yped . , 

only valid in EDIT LINE mode, 
word of line being edited 

only valid in EDIT LINE mode, 
of line being edited 

same as /BLANK/ 

same as /BULL/ 

same as /FORM FEED/ 



Gets next 
Gets rest 



3 

3,20 
3 

3, 30 
20 
20 

22 

2 2 



'*this notation indicates that the CTRL key is pressed 
simultaneously with indicated letter, 



Special Characters 



Description Page 

used to delimit literals 4 

/ used to delimit names 5,13 

( ) *'noise*' word, used for clarity 6,11 

; used to delimit comments 40 

^ typed by LOGO to indicate user control 3 

> typed by LOGO to indicate define mode 5,22 

typed by LOGO at beginning of line to 

indicate line has been "RUBbed OUT" 20 

typed by LOGO to indicate REQUEST needs 

user type-in 32 
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Slash (/) has boon replaced by colon or dots (:) as the cleLiinlter 
fox' LOGO nainc?s. 

The command LOCAL now takes only a single input (Instead of "an 
arbitrary nunibor as before). 

The number sign (/O embedded in a literal TYPEs and PHINTs as a 
blank space. Thus, 

t-HAKl- "A" "AHfiiB" 
-C'LIST ALL NAMtfS 
:A: IS "A<i liifB" 
■t-PRINT :A; 

a"" B • 

The special actions :L1KEPEED: , :BELL:, .-CARRIAGE RETURN : , 
:PORMPEED'. , and :SKIP: are now also available as the zero-input 
commands LINEFEED, BELL, RETURN, FORMFEED, and SKIP. 

The limit i -word commands IP TRUE, IF FALSE, GO TO LINE, RESET 
CLOCK, and the multi-word operations TOUCH LEFT, and TOUCH RIGHT 
have been chanced to the single v;ords IPTRUE, IPPALSE, GOTOLINE, 
RE.SETCLOeK, TOUCHLEFT, and TOUCHRIGHT. 

A one-input command, TYPEIN, has been added. TYPEIN "A" has the 
same effect as MAKE "A" REQUEST. 

-t- TYf^KlN "SAH" 
>M AM SAM 
"t-PRlNT ;SAM: 
1 AM SAM 



The character > has been replaced by the character @ to indicate 
readiness in define mode. 
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The prefix arithmetic operations ^UM, DIFFERENCE, PHODlfCT 
QUOTIENT have been supplemonted by their Infix forms K -! /. 
> is now the infix form of GREATKKP and both infix (<) and 
prefix (LKSSP) versions of the predicate strictly-leRr.-than 
have also been impleinented. EQUAL? and the cquiWumirTmTx = 
are new two-input predicates which test numerical eou-iifi-v 
(EQUALP OF 0 AND 00 is "TRUE" whereas IS-QP^^ 00 28 "fAlSE".) 

Exp^^essions containing only prefix operations and commands are 
parsed from left to right as before (see LOGO manual). Infix 
operations have their usual meanlntrs in expressions. For 
example, 2 + 3 « 'l gives I'l and 3 « 1 + 2 gives "TRUE". (Using 
a simple left-to-right parsing, this last expression v/ould 
have been interpreted as (3 = 1) + 2, i.e., "FALSE" + 2 and 
thus would have resulted in an error message.) Parsing is 
straightforwardly ^escribed by giving different precedence 
ranking to differeht classes of operators, as in the followinr-- 
table. ^ 

all prefix operators 

Thus, « and / have identical precedence v/hich is higher than 
the precedence of + and -. 

Now we can easily state the general LOGO parsing rule. Parsing 
is still strictly lef t-to~t?lght except for tfie difficult case 
where there are two possible operators with which to associate 
an input. This is the case where an input is preceded by any 
(prefix or infix) operator and is followed by an infix operator. 
Symbolically: Left-Op Input Right-Op, (For example in 
PRINT 2 + 3 we want the input 2 to go with the operator +, not 
with the operator PRINT.) The general rule is: the input goes 
With the operator on its left (Left-Op) unless the precedence 
of that operator is less than the precedence of the infix 
operator on the right. The following examples show the use 
of the rule;. 

■t^PRl NT h " 3 = 6 5' 2 

TRUE -f^l^j'SsJSjsp,^^^ 
4-PRlNT 2 + 5 |i i\ / 5 

^iiflHlllMiliiiBipM 
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•♦•PRINT V/OR.D 1 AND 1 " WO RD 2 AND 2 
12 2 

t-PRIHT BUTLAST J 3 " h 
5 

•^PRINT h -' BUTLAS T 13 

Parentheses can still be used to enclose valid LOGO expressions 
(see Pp. 6 and 11, LOGO Manual). Now, hov;ever, they can chance 
the order of parsing. 

H-PRIN T (BUTLAST 1 3) " h 
h 

t-PRlNT CV/ORD 1 AND I) (WORD 2 AKD 2) 
242 

Finally, a + or - which Is not preceded by an input is taken 
as a unary + or - . 

-{-PRINT --1 

-1 

There are some difficulties, though, 

-^PRINT SU M - 1 "1 

1 INPUT MISSING FOR SUM 

The second - was taken as binary resulting in PRINT SUM -?.. 
Our parsing rule was chosen to minimize such difficulties. 
One should, when possible, avoid the use of mixed prefix and 
infix expressions v.'hich are not transparent. When writing 
mixed expressions, the use of parentheses or noise words 
should be encouraged to increase transparency. Thus, the 
previous example could be correctly written as 

■<-PRINT SUM -1 AND -1 
-2 

2. The one-input operation NOT outputs "TRUE" if the input Is 
"FALSE" and "FALSE" if the input is "TRUE". Any other input 
gives an error message. 

3. WORDS and SENTENCES are operations which concatenate any 
number of inputs to form a LOGO word or a LOGO sentence . 
These operations keep taking inputs until a right parenthesis 
occurs or the line ends. Their built-in abbreviations are 

WS and SS. 

^■ PRINT SENTENCES "A " "B" ".C"..'VD'! 

■t- PRINT (WORDS 1 2. 3) -t^ (WORDS 3 2 1) ■ \ r., :r 
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AcUlenduin No. 2 



An acklltlona] forin of conditional: 1V_ "i'HEN^ ELSIC 

has been amp] oniented . The IP coimnand is followed~b"v an 
expression wliich must evaluate to "THUK" or "l-^ALSE"'. If it 
Is "TKUE", then the command follov;inf;; THEN is executed. If 
it is "FA.1.SE", the command f olloKino ' ELSE is executed. The 
word Til}'!] Ik a noise word v/hich may be omitted. The ELSE 
and subsequent command may also be omitted. In that case, 
"FALSE" results in a null action. 



t-jF B OTH 1 > 2 AK'D 2 < 1 THEN PRINT "HELP" ELSE PRINT "WHEW" 
WH E W ~~ . 

t-IF 2 ■\- 2 = h PRIN T SUM OK 1 AND 2 
<-T0 REVERSE :WORD: 

10 IF EMPTYP :WORD: OUTPUT .-EMPTY: ELSE OUTPUT V/ORD OF 

Clast :v/ord:) (reverse butlast :word:) 

END 



